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38 otros LENGUAJES 


Las redes 


Cd 
telemáticas 

AS redes telemáticas 
son el producto de 
unir los servicios infor- 
máticos con los me- 
dios de comunicación. 
Tanto las diferentes 
formas de conexión 
de los equipos con las 
líneas como las dimensiones de dichas 
redes pueden ser de diferentes tipos. 
En principio podemos afirmar que estas 
redes no tienen por qué tener dimensio- 
nes enormes; se pueden limitar a zonas 
locales o áreas concretas. 

En Estados Unidos se estableció una red 
de más de un centenar de ordenadores 
de distinta capacidad para enlazar Uni- 
versidades y centros de investigación 
que precisaban la misma información. 

En principio, la red estaba compuesta 
por la conexión de un grupo de ordena- 
dores encargados de enlazar y comuni- 
car una serie de centros con un segundo 
bloque encargado de proporcionar la in- 
formación. Hoy la actividad ha rebasado 
el ámbito de los Estados Unidos y es una 
gran red intercontinental. 


zan la comunicación instantánea entre or- 


6 Las reales telemáticas mundiales garanti- 
denadores distantes. 
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LAS APLICACIONES DE LA TELEINFORMATICA 


Además de este tipo de redes existen 
redes unilaterales de distribución de te- 
levisión a través de microondas y, como 
sistema cableado, el teléfono. Redes In- 
teractivas son aquellas en las que la co- 
municación ya no es unilateral, como 
ejemplo está la distribución de las emi- 
siones de televisión mediante cable 
coaxial, que da la posibilidad de «inter- 
venir» al espectador en los «programas». 

Con la utilización de la fibra óptica 
para la distribución de comunicaciones, 
el número de canales se hace enorme, 
por lo que se decide su utilización en la 
compartición, ya no de programas tele- 
visivos, sino de informaciones almacena- 
das en ordenadores situados en locales 
públicos de gestión, Universidades, ban- 
cos, etc. Con esta aplicación el abona- 
do de este servicio podrá desde su do- 
micilio realizar gestiones, solicitar infor- 
mación, reservar plazas en hoteles, ser 
chequeado por un determinado centro 
médico, etc. En Francia se multiplican ya 
los sistemas de redes locales para el diag- 
nóstico a distancia, especialmente útil 
para personas de tercera edad. Otras re- 
des más complejas incorporan monitores 
de vídeo para la observación del enfer- 
mo. 


Existen terminales transportables, también 
v aplicables a la ofimática. 


O El teletrabajo 


Consiste en poder realizar el trabajo 
diario de oficina en otro lugar; para ello 
se necesita disponer de medios de co- 
municación. El teletrabajo es posible, 


Hs E 


COMUNICACION 
VOZ-DATOS 


principalmente, en el sector terciario, 
donde se unen los medios informáticos y 
telemáticos. 
Existen ya muchas experiencias en este 
campo y cada día se desarrolla más. 
Los medios que necesita el teletrabajo 


son: 


y Integrando todas las tareas específicas de las oficinas se pueden automatizar todos 


los trabajos. 


— Redes de transmisión de datos. 

— Teléfonos y sus accesorios (contes- 
tador automático, registrador, etc.). 

— Télex. 

— Equipos de tratamiento de textos. 

— Videotext y teletext. 

— Terminales de pantalla y otros equi- 
pos periféricos. 

— Telecopiadoras. 


Los locales en los que deben ubicarse 
estos medios son: 


El domicilio del empleado. El equipo 
puede pertenecer al empleado, con lo 
cual tiene la posibilidad de poder conec- 
tarse con las empresas en las que es con- 
tratado. En otros casos es la empresa la 
que proporciona el sistema. 

El telelocal. Locales de una o varias 
empresas equiparados con materiales 
convenientes para acercar sus servicios 
a los clientes. 


Actualmente las tareas que es posible 
realizar son: 


— Tareas de tratamiento de textos: 
composición, corrección, difusión... 

— Tareas de gestión administrativa. 
Consulta y mantenimiento de archivos y 
otras tareas que actualmente se realizan 
a través de terminales. 

— Tareas que implican relación con el 
público. Consultas a bases de datos, re- 
servas, pedidos, inscripciones, telepa- 
gos... 

— Tareas informáticas. Especialmente 
programación. 


¡O El sistema teletext 


Los inicios de este sistema se ftechan en 
la década de los sesenta, en Gran Breta- 
ña, donde se investigaba en cómo incluir 
subtítulos en las imágenes de televisión. 
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A principios de los setenta, en Francia se 
estudiaba la viabilidad del teletext. En 
1980, en el Reino Unido, había 400.000 
receptores de teletext en la red nacional 
de televisión. 


Característica Teletexto Videotexto 


Interacción Unidireccional (emisión)  Bidireccional 
usuario-ordenador del 
sistema 


Señal de TV Líneas telefónicas 


Varios cientos de páginas 
en canal compartido. 

Aproximadámente 40 000 
si se utiliza todo el canal. 


Medio de transmisión 


Teóricamente sin límite, 
sólo depende de la 
capacidad de 
almacenamiento del 
medio 


Tiempo de espera del 
usuario 


Un promedio de 13 Un ordenador como el 
segundos por revista de DEC11/70 da servicios a 
100 páginas; el tiempo de unos 200 usuarios con 
acceso es independiente tiempo de espera de 
del número de usuarios varios segundos. Para 
mayor número de usuarios 
hay que aumentar la 
potencia del ordenador si 
se quiere conservar el 
mismo tiempo de espera. 


Contenido de la 


Enciclopédica 
información 


Noticias, parte 
meteorológico, de interés 


general 


Coste Cargo en función de los 


servicios utilizados 


Sin cargo para el usuario; 
el servicio lo pagan los 
anunciantes 


Con decodificador 
especial; se puede utilizar 
en televisión de circuito 
cerrado y en televisión 
por cable 


Condiciones de acceso Se puede utilizar palabra 
clave de acceso para 
limitar la utilización de 
algunas bases de datos, 
por ejemplo, los informes 
confidenciales de una 
compañía. 


Posible: usuario a usuario 
o usuario a fuente de 
información. $e puede 
efectuar comunicación 
interredes con protocolos 
compatibles como el X.25. 


Correo electrónico No es posible 


Sólo se necesita un El número de ordenadores 
ordenador por sistema de del sistema depende del 
teletexto; número ilimitado número de usuario. 

de usuarios 


Ampliación del sistema 


4 


En la figura podemos apreciar los dis- 
tintos elementos que constituyen el siste- 
ma teletext. La información que se distri- 
buye a través del sistema de teletexto se 
compone de un terminal en edición. La 
información en el ordenador se transmi- 
te mediante alguna de las líneas no utili- 
zadas de la imagen del televisor. La infor- 
mación de teletext aparece en la panta- 
lla como texto gráfico, o una combina- 
ción de ambos. 

El usuario utiliza el teclado numérico 
del sistema teletext para seleccionar en- 


Cuadro comparativo entre las característi- 
cas del teletexto y el videotexto. 


tre varios cientos de páginas la que de- 
sea visualizar. Las páginas se emiten de 
modo continuo y secuencialmente, es 
decir, una vez terminado el texto se vuel- 
ve a empezar desde la primera página. 


Il El sistema videotext 


En la década de los setenta se desarro- 
1lÓ una tecnología complementaria al te- 
letext llamada videotext (viewdata). La 
principal diferencia entre el teletext y el 
videotext es el modo en que se accede 
a la información. Ambos usuarios dispo- 
nen de un teclado numérico por el que 
seleccionan las páginas deseadas. 
Cuando el usuario de teletext pulsa los 
botones para seleccionar una pagina 
determinada, programa el terminal para 
que espere la emisión de la página de- 
seada. 


NO VIDEOTEX 
— GATEWAY Y REDES PRIVADAS 


Configuración general de un Sistema vVi- 
deotex. 


Sin embargo, cuando el usuario del vi- 
deotext pulsa los botones del teclado, 
sus instrucciones pasan al ordenador del 
sistema; el ordenador encuentra la pági- 
na seleccionada y envía la información 
al usuario. Por tanto, en el sistema tele- 
text la comunicación es unidireccional, 
ya que el usuario ha de esperar su turno 
de emisión; en contraposición, el video- 
text es bidireccional, ya que la fuente 
responde directamente a las órdenes del 
usuario. 

El sistema videotext utiliza como termi- 
nales los aparatos de televisión de uso 
doméstico, y accede, a través de las lí- 
neas telefónicas, a base de datos. El sis- 
tema se realiza de forma que unos abo- 
nados determinados, llamados suminis- 


tradores, ponen sus informaciones a dis- 
posición de las personas que tengan te- 
léfono. El suministrador fija el contenido, 
el coste y pone a ciertos usuarios restric- 
ciones en el acceso a la información. 


a Ventajas e inconvenientes 
' del videotext 


Las ventajas del videotext frente a la in- 
formática tradicional son claras: interco- 
nexión universal entre terminales, acce- 
so también universal a los centros de ser- 
vicio conectados al sistema, interfaz de 
fácil uso, procedimientos de comunica- 
ción normalizados, costes menores de 
terminal y de comunicaciones. 

En cuanto a los inconvenientes, aún 
hoy siguen siendo bastante serios: tiem- 
pos de respuesta lentos, incapacidad de 
soportar aplicaciones en tiempo real y 
de gran volumen de información, mayor 
coste del software de estos sistemas fren- 
te alos tradicionales. 


Sistemas de comunicación 
de oficinas 


Mediante los sistemas de comunica- 
ción se ofrece una amplia gama de ser- 
vicios de voz, datos, de alta y baja velo- 


cidad, redes de datos públicas y priva- 
das. Al igual que se pueden compartir 
otro tipo de recursos como: impresoras, 
sistemas de archivo, procesadores de 
aplicaciones, bases de datos y memo- 
rias de masa. 

En cuanto a servicios externos que se 
pueden proporcionar mediante conexio- 
nes apropiadas, están el correo electró- 
nico, proceso de textos, el videotext y te- 
letext. 


'O Aplicaciones domésticas 


La forma de realizar un sistema en el 
hogar dependerá en gran medida de los 
terminales de los que se disponga y los 
medios de transmisión, tanto a nivel inter- 
no como externo. | 

La aplicación de la información a nivel 
doméstico es un tema muy atractivo y se 
prevé un fuerte desarrollo en poco tiem- 
po. Actualmente en países como Estados 
Unidos, las aplicaciones son cada vez 
más numerosas; entre ellas se conocen: 


— Latransmisión interior de señales de 
vídeo, sonido, voz y datos. 

— Conexión con diversos equipos de 
electrodomésticos, desde dentro y fuera 
de la casa. 

— Sistemas de entretenimiento y edu- 
cación, etc. 


GESTION 
ECONOMIA 


ELECTRODOMESTICOS 
APA 


ACCESO A 
VIDEOTEXT Y 


TELETEXT 


INTERNA 


[A Informática en el hogar. 


a) Instrucciones 


== de iteración 


XISTEN tres Instruccio- 
nes que facilitan la 
programación de bu- 
cles basándose en la 
utilización como con- 
tador de un registro 
específico, el registro 
CX. Se trata en reali- 
dad de bifurcaciones condicionadas al 
valor del registro CX. Cada vez que se 
ejecuta una de estas instrucciones se dis- 
minuye en una unidad el valor del conta- 
dor contenido en CX y se bifurca (para 
continuar el bucle) si se cumple una con- 
dición específica de cada instrucción. En 
caso contrario, la ejecución continúa 
con la instrucción siguiente, lo que impli- 
ca normalmente la terminación del bu- 
cle. 


(etiqueta: ) LDOPXX objetivo 


Etiqueta. Es un nombre opcional. 

LOOPXX: Representa a cinco nemotéc- 
nicos de las tres instrucciones citadas: 
LOOP, LOOPE, LOOPZ, LOOPNE y LOOPNZ, 
cuyas condiciones de bifurcación son las 
siguientes: 

— LOOP bifurca al objetivo si CX es di- 
ferente de cero. 

— LOOPE y su nemotécnico equivalen- 
te LOOPZ bifurcan al objetivo si CX es di- 
ferente de cero y el «flag» ZF está en «on» 
(valor 1). 

— LOOPNE y su nemotécnico equiva- 
lente LOOPNZ bifurcan al objetivo si CX es 
diferente de cero y el «flag» ZF está en 
«Off» (valor 0). 

Objetivo. Es el operando mediante el 
cual se especifica la dirección a la que 
debe transferirse la ejecución. El objetivo 
de estas instrucciones tiene que ser 
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SHORT, es decir, debe corresponder a 
una posición de memoria que no esté si- 
tuada a una distancia superior a 127 
bytes de la instrucción LOOPXX. 

Pertenece también a este grupo la ins- 
trucción JCXZ, cuyo nemotécnico es una 
abreviatura de «jump if CX is zero», que 
significa «salto si CX es cero». Esta instruc- 
ción comparte la característica principal 
del grupo, es decir, efectúa una bifurca- 
ción a un objeto tipo SHORT, que está 
condicionada al valor de CX. Se diferen- 
cia, sin embargo, en que no decremen- 
ta en una unidad el contenido de CX 
cada vez que se ejecuta. 


' Números enteros 


El 8088 puede operar con números en- 
teros codificados en decimal y con nú- 
meros enteros codificados en binario. Por 
razones de extensión y utilidad vamos a 
limitarnos a estos últimos. 

Los números binarios pueden tener una 
longitud de 1 ó 2 bytes (8, ó 16 bits), que 
permiten diferenciar 256 ó 65536 núme- 
ros, respectivamente. Dichos números se 
pueden representar de dos formas distin- 
tas, según se vayan a utilizar o no núme- 
ros negativos. 

Cuando se desean manejar números 
que pueden ser positivos y negativos, se 
utiliza una representación en la que un 
bit se dedica al signo. Cuando se van a 
manejar números que no van a ser nun- 
ca negativos, todos los bits se emplean 
para representar la magnitud del núme- 
ro. Los primeros se denominan «binarios 
con signo» y los segundos «binarios sin 
signo». Resultan, por tanto, cuatro clases 
de números enteros binarios. En la si- 
guiente tabla se expresan los números 
que se abarcan en cada clase: 


binarios sin $1g3no | binarios con s51g9n0 


| Lorga tud 1 byte del 0 al 2395 del 128 al +127 


Lor Gtta ¿dd 2 bytes del O al 65535 del 32768 al +32767 


Flags aritméticos 


En las operaciones aritméticas de nú- 
meros enteros puede darse el caso de 
que el resultado de la operación se sal- 
ga de los límites de la clase a la que per- 
tenecen los operandos. Para detectar es- 
tas situaciones excepcionales, el 8088 
dispone de un conjunto de «flags» o indi.- 
cadores, donde cada vez que se efectúa 
una operación aritmética, se refleja infor- 
mación acerca de cómo se ha desarro- 
llado la operación. 

Cada flag, que se guarda en un bit, 
puede estar en dos estados: activado 
(valor 1) y desactivado (valor 0). 

Como se vio en el tomo 37, las instruc- 
ciones de transferencia condicional per- 
miten bifurcar a otras partes de un pro- 
grama, dependiendo del estado de di- 
chos «flags». 

Los «flags» relacionados con las opera- 
ciones aritméticas son los siguientes: 


— Flag de acarreo CF («Carry Flag»). 
Este flag se activa después de instruccio- 
nes de suma o resta en la que el resulta- 
do ha perdido el bit más significativo por 
haber excedido la capacidad del regis- 
tro que lo contiene (incluyendo el bit de 
signo). En todos los demás casos este flag 
queda desactivado (va!or 0). Por tanto, 
este flag sirve para detectar resultados 
anómalos en operaciones de binarios sin 
signo y puede ser ignorado cuando se 
opere con binarios con signo. 

— Flag de «overflow» OF («Overflow 
Flag»). Este flag se activa después de ins- 
trucciones de suma o de resta en la que 
el resultado ha perdido el bit más signifi- 
cativo por haber excedido la capacidad 
del registro que lo contiene (excluyendo 
el bit de signo). En todos los demás ca- 
sos este flag queda desactivado. Por tan- 
to, este flag sirve para detectar resulta- 
dos anómalos en operaciones de bina- 
rios con signo y puede ser ignorado 
cuando se opere con binarios sin signo. 

— Flag de signo SF («Sign Flag»). Des- 
pués de cada operación aritmética o ló- 
gica, este flag 'adquiere siempre el valor 
del bit de signo del resultado. Puede ig- 


norarse en las operaciones de binarios 
sin signo. 

— Flag de resultado igual a cero ZF 
(«Zero Flag»). Este flag se activa siempre 
que el resultado de una operación arit- 
mética o lógica sea 0 y se desactiva en 
los demás casos. 

— Flag auxiliar de acarreo AF («Auxi- 
liary carry Flag»). Se activa siempre que, 
en una suma, el byte menos significativo 
del resultado se haga mayor de FF o, en 
una resta, se haga menor de 00. Tiene in- 
terés sólo en las operaciones con núme- 
ros codificados en decimal. 

— Flag de paridad PF («Parity Flag»). Se 
activa cuando en el byte menos signífi- 
cativo del resultado hay un número par 
de bits con valor 1. Tiene interés sólo 
para comprobar la corrección de códi- 
gos ASCII. 


"O Instrucciones aritméticas 


Vamos a tratar a continuación de un 
conjunto de instrucciones que permiten 
efectuar operaciones aritméticas con nú- 
meros enteros binarios. 

Es importante resaltar que en las ope- 
raciones de multiplicación y división hay 
que distinguir cuándo se están emplean- 
do números binarios «con signo» y «sin 
signo», ya que la configuración de bits 
del resultado depende de dicha circuns- 
tancia. Por esta razón, las instrucciones 
para multiplicar y dividir binarios sin sig- 
no (MUL y DIV) son diferentes de las que 
se emplean con los binarios con signo 
(IMUL e IDIV). 

Sin embargo, esta cuestión no afecta a 
las deas operaciones aritméticas en las 
que el resultado es el mismo, indepen- 
dientemente de que los operandos se in- 
terpreten como binarios «con signo» o 
«Sin signo». 

La única distinción debe hacerse en las 
situaciones excepcionales en las que el 
resultado se salga fuera de los límites de 
cada clase. Como se ha explicado ante- 
riormente, los flags CF y OF permiten de- 
tectar estas situaciones y las instruccio- 
nes JC, JO e INTO permiten bifurcar a la 
parte de programa donde se realizan las 
acciones correctoras necesarias. 

Antes de pasar a explicar las distintas 
instucciones conviene recordar que las 
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referencias a memoria admiten todas las 
variantes que ya se explicaron en el 
apartado «Referencias explícitas a la me- 
moria» del tomo 13. 


1] Sumas, restas 
== y comparaciones 


Las tres instrucciones que se estudian a 
continuación actualizan el mismo con- 
junto de flags (CF, OF; SF, ZF, AF y PF) y tie- 
nen la misma sintaxis: 


[etiquetal:]J ADD 
[eti queta2: J SUB 
[etiqueta3: J CcmP 


destino,origen 
destino,origen 
destino,origen 


— «destino» puede representar un re- 
gistro (que no sea de segmento) o una 
posición de memoria. 

— «origen» puede representar: un 
operando inmediato, un registro (que no 
sea un segmento) o una posición de me- 
moria si el destino es un registro. 

— ADD es el nemotécnico de la ins- 
trucción de suma, la cual hace que el 
operando «origen» se sume con el ope- 
rando «destino» y que el resultado se 
guarde en el propio «destino». 

— SUB es el nemotécnico de la instruc- 
ción de sustracción, la cual hace que el 
operando «origen» se reste del operando 
«destino» y que el resultado se guarde en 
el propio «destino». 

— CMP es el nemotécnico de la ins- 
trucción de comparación, la cual hace 
que el operando «origen» se reste del 
operando «destino» pero sin que el resul- 
tado se guarde en ningún sitio, ya que el 
objetivo de esta instrucción es la actua- 
lización de los flags, de forma que refle- 
jen la comparación de los operandos, 
para a continuación efectuar alguna 
transferencia condicional con alguna 
instrucción del tipo JXXX (ver tomo 37). 


L] Incrementos, decrementos 
== y cambios de signo 


Hay tres instrucciones que permiten 
modificar el valor binario de un registro o 
posición de memoria, sumándole o res- 
tándole una unidad o cambiándole de 
signo. Las dos primeras instrucciones ac- 


tualizan los flags OF, SF, ZF, PF y AF y la ter- 
cera actualiza además el flag CF. Se es- 
criben de la siguiente forma: 


destino 
destino 
destino 


[etiquetal:J INC 
[eti queta2: J DEC 
[etiqueta3: 1] NEG 


— «destino» representa al registro o la 
posición de memoria que va a ser modifi- 
cada. 

— INC es el nemotécnico (abreviatura 
de «Increment») que provoca la adición 
de una unidad al destino. 

— DEC es el nemotécnico (abreviatu- 
ra de «Decrement») que provoca la sus- 
tracción de una unidad al destino. 

— NEG es el nemotécnico (abreviatu- 
ra de «Negate») que provoca el cambio 
de signo del destino. Esta instrucción pre- 
supone que el número contenido en el 
destino es un binario con signo y lo susti- 
tuye por el resultado de restar dicho nú- 
mero de cero. 


[M) Multiplicaciones 


En la operación de multiplicación hay 
que distinguir si los operandos son bina- 
rios «con signo» o «sin signo», por esta ra- 
zón, existen dos instrucciones diferentes 
MUL e IMUL. 

Estas instrucciones se caracterizan por 
tener un solo operando que actúa como 
uno de los factores en la multiplicación; 
el otro factor debe estar previamente 
cargado en el acumulador. El resultado 
se obtiene con doble precisión (doble 
número de bits). 

Cuando los factores son bytes, el resul- 
tado se devuelve en dos bytes, el byte 
menos significativo en AL (acumulador) y 
el más significativo en AH (extensión del 
acumulador). Cuando los factores son 
palabras, el resultado se devuelve en 
dos palabras, la palabra menos significa- 
tiva en AX (acumulador) y la más signifi- 
cativa en DX (extensión del acumula- 
dor). 

A su terminación, ambas instrucciones 
dejan los flags: AF, PF, SF y ZF en un esta- 
do indefinido. 

La sintaxis es la siguiente: 


[eti quetal:J MUL origen 
[etiqueta2: J IMUL origen 


— «origen» representa el registro o la 
posición de memoria que contiene uno 
de los factores de la multiplicación. 

— MUL es el nemotécnico (abreviatu- 
ra de «Multiply») de la instrucción de mul- 
tiplicación de binarios sin signo. 

— |IMUL es el nemotécnico (abreviatu- 
ra de «Integer Multiply») de la instrucción 
de multiplicación de binarios con signo. 


Divisiones 


En las divisiones también hay que dis- 
tinguir si los operandos son binarios «con 
signo» O «sin signo», y, por tanto, existen 
dos instrucciones que diferencian ambos 
casos; DIV e IDIV. 

Las dos instrucciones se caracterizan 
por tener un solo operando que actúa 
como el divisor en la división. El dividen- 
do debe definirse con doble precisión 
que el divisor y debe estar previamente 
cargado en el acumulador (la mitad me- 
nos significativa) y en la extensión del 
acumulador (la mitad más significativa». 

En las divisiones de bytes el acumula- 
dor es el resgistro AL y su extensión es el 
AH. En las divisiones de palabras el acu- 
mulador es el registro AX y su extensión 
es el DX. 

Al terminar la división el cociente que- 
da en el acumulador y el resto en su ex- 
tensión, y los flags CF, OF, AF, PF, SF y ZF 
quedan indefinidos. 

Estas instrucciones se escriben de la si- 
guiente forma: 


Tetiquetal: 1] DIV origen 
[eti queta2: ] IDIV origen 


— «origen» representa el registro o la 
posición de memoria que contiene el di- 
visor de la división. 

— DIV es el nemotécnico (abreviatura 
de «Divide») de la instrucción de división 
de binarios sin signo. 

— |DIV es el nemotécnico (abreviatu- 
ra de «Integer Divide») de la instrucción 
de división de binarios con signo. 


CBW y CWD son dos instrucciones auxi- 
liares, que se pueden emplear antes de 
ejecutar una IDIV, para duplicar la preci- 
sión del número contenido en el acumu- 


lador, extendiendo su signo a la exten- 
sión del acumulador. 

CBW (iniciales de «Convert Byte to 
Word») convierte el número contenido en 
AL en un número contenido en AX. 

CWD (iniciales de «Convert Word to 
Doubleword») convierte el número conte- 
nido en AX en un número contenido en 
la pareja de registros AX, DX. 


'O Instrucciones lógicas 


Pertenecen a este grupo cuatro instruc- 
ciones que efectúan las operaciones 
booleanas: «no», «y», «O» Y «O exclusivo» y 
una quinta instrucción (TEST) que sirve 
para comparar y que (igual que CMP) no 
modifica los operandos. 

La negación lógica se ejecuta con la 
instrucción NOT, que no altera el estado 
de los flags y cuyo formato es: 


[etiqueta:J] NOT destino 


— «destino» puede ser registro o una 
posición de memoria. 

— NOT es un nemotécnico de la ins- 
trucción que efectúa la negación lógica 
del contenido del «destino», es decir, 
cambia ceros por unos y unos por ceros. 


Las demás instrucciones lógicas AND, 
OR, XOR y TEST funcionan con dos operan- 
dos, el primero denominado «destino» y 
el segundo «origen». Aplican reglas es- 
pecíficas a las parejas de bits extraídas 
de ambos operandos y (exceptuando la 
TEST) guardan el resultado en el destino. 

Los flags resultan afectados de la forma 
siguiente: CF y OF quedan siempre de- 
sactivados, AF queda indefinido y SF y ZF 
quedan actualizados de acuerdo con su 
propio significado (según se ha explica- 
do anteriormente). 

Los formatos de estas instrucciones son 
los siguientes: 


[etiquetal:J] AND 
[etiqueta2:] OR destino,origen 
[etiqueta:J]  XOR destino,origen 
[etiqueta4:] TEST  destino,origen 


destino,origen 


— «destino» puede representar un re- 
gistro (que no sea de segmento) o una 
posición de memoria. 


— «origen» puede representar: un 
operando inmediato, un registro (que no 
sea de segmento) o una posición de me- 
moria si el destino es un registro. 

— AND efectúa la operación lógica 
«Y». Un bit del resultado toma el valor 1 
sólo si los dos bits de los operandos son 1. 

— OR efectúa la operación lógica «o». 
Un bit del resultado toma el valor 1 sólo 
si alguno de los bits de los operandos 
son 1. 

— XOR efectúa la operación lógica «o 
exclusiva». Un bit del resultado toma el 
valor 1 si los bits de los operandos son di- 
ferentes. 

— TEST funciona igual que la instruc- 
ción AND, pero sin guardar el resultado 
en el destino. Se emplea para comparar 
datos y realizar transferencias condicio- 
nales de forma análoga a la instrucción 
aritmética CMP. 


ge » y 
Desplazamientos 


Hay cuatro instrucciones que permiten 
desplazar hacia la izquierda o hacia la 
derecha los bits contenidos en un regis- 
tro o una posición de memoria. 

Estas instrucciones admiten los dos for- 
matos siguientes: 


[etiquetal:] SXX destino, 1 
[etiqueta2:] SXX destino,CL 


— «destino» representa el registro 
(que no sea de segmento) o la posición 
de memoria sobre la que se desea efec- 
tuar el desplazamiento. 

— El segundo operando puede ser 1 o 
CL, según se desee desplazar un bit o 
más de uno. En este caso el número de 
bits a desplazar debe haberse cargado 
previamente en el registro CL. 

— SXX representa cuatro posibles ne- 
motécnicos de tres instrucciones diferen- 
tes: SHL («Shift Logical Left»), SAL («Shift 
Aritmetic Left», SHR («Shift Logical Right») y 
SAR («Shift Aritmetic Right»). 


SHL y SAL realizan la misma operación, 
que consiste en desplazar los bits hacia 
el lado izquierdo completando con ceros 
en lado derecho. SHR desplaza los bits 
hacia la derecha completando con ce- 
ros en la izquierda. Por último, SAR des- 
plaza los bits hacia la derecha repitien- 


do en la izquierda el bit contenido en el 
signo. 

En estas instrucciones los flags PF, SF y 
ZF se actualizan de acuerdo con su signi- 
ficado. El flag CF contiene el último bit eli- 
minado. Por último, en las operaciones 
donde se desplaza más de un bit el flag 
OF queda indefinido, mientras que cuan- 
do el desplazamiento es de un solo bit el 
flag OF queda activado cuando el bit de 
signo cambia de valor y desactivado en 
caso contrario. 


E Obtención de direcciones 


Existen tres instrucciones que permiten 
obtener la dirección de una posición de 
memoria. Se diferencian claramente de 
la instrucción MOV, que transfiere el con- 
tenido de dicha posición de memoria. Es- 
tas instrucciones no afectan a los flags, y 
tienen el siguiente formato: 


[eti quetal: J 
[eti queta2: J 
[eti queta3: J 


LEA destino,origen 
LDS destino, origen 
LES destino,origen 


— «destino» es el nombre de un regis- 
tro de una palabra sobre el que se quie- 
re cargar el «offset» de la posición de me- 
moria deseada. 

— «origen» representa la posición de 
memoria cuya dirección se quiere obte- 
ner. 

— LEA, abreviatura de «load effective 
address», carga únicamente el «offset» 
de la posición de memoria en el registro 
especificado. 

— LDS abreviatura de «load pointer 
using DS», que además del «offset» sobre 
el registro especificado, carga el «regis- 
tro de segmento» de la posición de me- 
moria sobre el registro DS. 

— LES, abreviatura de «load pointer 
using ES», es análoga a la instrucción LDS, 
pero cargando el «registro de segmento» 
sobre ES. 


O Cadenas de información 


El 8088 dispone de un mecanismo es- 
pecial que permite la eficaz manipula- 
ción de largas cadenas de bytes o pala- 
bras, que de una forma genérica deno- 


minaremos aquí «elementos de informa- 
ción» o simplemente «elementos». Dicho 
mecanismo basa su eficacia en que 
efectúa las operaciones repitiendo bu- 
cles internos al microprocesador en vez 
de realizar bucles de programa. Las cin- 
co operaciones que realizan este tipo de 
bucles copian o comparan «elementos 
de información» de dos áreas, «área ori- 
gen» y «área destino», o entre éstas y el 
acumulador. 

Vamos a describir a continuación los 
registros que intervienen en estos bucles 
y los papeles que desempañan: 


— El área origen es la zona de memo- 
ria que esté apuntada por los registros DS 
y SI. Cada vez que en un bucle se utiliza 
un elemento de ella, el 8088 modifica el 
registro Sl en una o dos unidades depen- 
diendo de si se ha utilizado un byte o una 
palabra. 

— El área destino es la zona de memo- 
ria que esté apuntada por los registros ES 
y DI. Cada vez que en un bucle se utiliza 
un elemento de ella, el 8088 modifica el 
registro Dlen una o dos unidades, depen- 
diendo de si se ha utilizado un byte o una 
palabra. 

— El flag DF («Direction Flag») se utiliza 
para definir si los sucesivos elementos de 
las áreas origen y destino se encuentran 
hacia las direcciones crecientes o de- 
crecientes de la memoria. Si el flag DF 
está desactivado (valor 0), las modifica- 
ciones que se hacen en cada bucle de 
los registros Sl y DI representan incremen- 
tos, y si DF está activado (valor 1), repre- 
sentan decrementos. 

— El acumulador es el registro AL 
cuando se manipulan bytes o el registro 
AX cuando se manipulan palabras. 

— Cada vez que ejecuta un bucle, el 
8088 decrementa el registro CX y lo da 
por terminado cuando dicho registro al- 
canza el valor cero. Por tanto, el número 
de «elementos» a procesar debe definir- 
se en CX antes de comenzar el bucle. 


Los formatos de estas instrucciones son 
los siguientes: 


[REPxx 1 
TREPxx 1 
CREPxx 1 
[REPxx 1 
TREPxx 1] 


[eti quetal: 
[eti queta2: 
[eti queta3: 
[eti queta4: 
[eti queta5S: 


MOVSz 
CMPSz 
SCASz 
LODSz 
STOSz 


had bd bad ld ad 


Se puede observar que estas instruc- 
ciones son un poco especiales, porque 
no tienen operandos y porque el nemo- 
técnico de la instrucción va precedido 
del prefijo de repetición (REPxx), que 
puede ser REP, REPE, REPZ, REPNE y REPNZ. 
Para las instrucciones MOVSz, LODSz y 
STOSz todos los prefijos tienen el mismo 
significado: repetir el bucle mientras CX 
sea distinto de cero. Para las instruccio- 
nes CMPSz y SCASz hay dos tipos de pre- 
fijos que permiten controlar el bucle de 
diferente forma: 


— REP, REPE y REPZ significan: repetir el 
bucle mientras CX sea distinto de cero y 
mientras los «elementos» comparados 
sean iguales. 

— REPNE y REPNZ significan: repetir el 
bucle mientras CX sea distinto de cero y 
mientras los «elementos» comparados 
sean diferentes. 


Las cinco operaciones que se realizan 
dentro de los bucles pueden manipular 
«elementos de información» de dos tipos: 
bytes o palabras. Cuando se desea ma- 
nejar bytes, la letra «z» final de los nemo- 
tecnicos debe ser una «B», es decir, 
MOVSB, CMPSB, SCASB, LODSB y STOSB y 
cuando se desea manejar palabras 
(words), la letra «z» debe ser una «W», es 
decir, MOVSW, CMPSW, SCASW, LODSW y 
sTOSW. 


— MOVSz copia el «elemento» del 
área origen al área destino. 

— CMPSz resta el «elemento» del área 
destino del «elemento» del área origen y, 
sin guardar el resultado en ningún sitio, 
actualiza los flags permitiendo la termi- 
nación del bucle cuando se deje de 
cumplir la condición expresada en el 
prefijo. 

— SCASZz resta un «elemento» del área 
destino del acumulador y, sin guardar el 
resultado en ningún sitio, actualiza los 
flags permitiendo la terminación del bu- 
cle cuando se'deje de cumplir la condi- 
ción expresada en el prefijo. 

— LODSz copia el «elemento» del área 
origen al acumulador. 

— STOSz copia el «elemento» del acu- 
mulador al área destino. 


¡O Programa: 


representación de 
graficas para IBM 


OS estudiantes, sobre 
todo los que estudian 
COU, suelen necesi- 
tar de un programa 
como el siguiente 
para representación 
de funciones en el or- 
denador. Este progra- 
ma nos ayudará a comprobar si la pre- 
gunta del examen sobre gráficas la he- 
mos contestado bien. Pero no sólo sirve 
para esto. Muchas veces es agradable 
jugar con las matemáticas y ver que no 


«Dibujar grafica. 
“Escribir formula, 
«Definir formato. 
«Salir del programa, 


(C(ELIGE OPCION) 


[A Fig. 1. Menú principal. 
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sólo son números y letras. A veces es ne- 
cesario recordar que muchas funciones 
matemáticas tienen unas representacio- 
nes muy bonitas. 


El programa está organizado de una 
forma muy sencilla. Al principio nos apa- 
recerá un menú. Si elegimos la opción 2 
podremos definir la función que quere- 
mos representar. 


Pulsando la opción 3 podremos va- 
riar algunas de las características con 
que se realizará la impresión, tales como 
la cuadrícula de la gráfica, dibujo del eje 
de coordenadas, dibujo de las asíntotas 
en caso de necesidad, dibujo por puntos 
o por líneas, etc. 


,+«Punto o Trazo. (1) 
¡buja eje xo 


Auto. (5) 
Escribe valores de x e y (5) 


Di 
«Dibuja eje y. (5) 
É 


,« Margen cuando XY ==> in 


i. (M) 
«Dibuja cuadricula, (N) 


A Fig. 2. El programa nos permite modificar la re- 
presentación de la función. 


PROGRAMA: FUNCIONES GRAFICAS PARA EL IBM 


1000 REM Adal lalala aaa lalalala lalalala la lalajalaliala lala jalalalalalololololok 


1010 REM x + 
1020 REM* FUNCIONES GRAF-ICAS x 
1030 REM * ===>. * 
1040 REM x* * 
1050 REM asada aaa lalala lalala lalala lalala lalalala lala lalalalalalalalalalalalololalok 
1060 REM 

1070 REM aaaaalOlSolOlOlSla lada lalalalalolalalolalalolalololalojolak 

1080 REM x* * 

1090 REM * (c) Ediciones Siglo Cultural * 

1100 REM * * 

1110 REM * (oc) 1987 * 

1120 REM * * 


1130 REM asada lO lala lalalala lalola lalalala la lalololalolololok 


1150 SCREEN 2 

1160 REM 

1170 REM ooo dolo alok 

1180 REM *** INICIALIZACION x*xkx 

1190 REM aAdolaldalOa Oda laalalallakolkokakok 

1200 REM 

1210 OPTION BASE 1 

1220 DIM A(3) 

1230 LET Al=1 

1240 LET A2=1 

1250 LET X5=0 

1260 LET AU=1 

1270 DIM AU(2) 

1280 DIM K1$(7) 

1290 LET K1$(1)="T" 

1300 LET K1$(2)="S" 

1310 LET K1$(3)="S" 

1320 LET K1$(4)="S" 

1330 LET K1$(5)="S" 

1340 LET K1$(6)="N" 

1350 LET K1$(7)="N" 

1360 KEY OFF 

1370 FOR I=1 TO 10 

1380 KEY 1,"" 

1390 NEXT 1 

1400 KEY 1,CHR$(13)+"GOTO 5700"+CHR$(13) 
1410 REM 

1420 REM aAdMaiaaOalda Ola lalala laa aaa alalalalalalalalololok 
1430 REM *x** PROGRAMA PRINCIPAL "MENU" xotxk 
1440 REM dealalalÓlSalalalO llo lala lalala lalalaloldlalalolololololololoK 
1450 REM 

1460 VIEW 

1470 CLS 

1480 LOCATE 2,32 

1490 PRINT "GRAFICAS" 


1510 PRINT:PRINT:PRINT 

1520 DEF FN Y(X)=(X”2+SIN(X)*X)/(X-1) 

1530 PRINT:PRINT:PRINT:PRINT:PRINT 

1540 PRINT SPC(29);"1...Dibujar grafica. " 
1550 PRINT SPC(29);"2...Escribir formula. " 
1560 PRINT SPC(29);"3...Definir formato. ” 
1570 PRINT SPC(29);"4...Salir del programa. " 
1580 PRINT:PRINT:PRINT 

1590 PRINT:PRINT:PRINT 

1600 LOCATE 24,31 
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1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
: 1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 


PRINT " <<ELIGE OPCION>>"; 
LET K$=INKEY$ 
IF K$="" THEN GOTO 1620 


LET K=ASC(K$)-48 

IF K<1 OR K>4 THEN GOTO 1620 

ON K GOSUB 2070, 1980, 1710, 1680 
GOTO 1460 

CLS 

END 

REM 

REM SSI lll lalalala lalalala 
REM x*x*x* SELECCION DEL FORMATO x*xxk 
REM SS OSOlO lO lalalala jolalolojojojolaK 
REM 

CLS 

PRINT 

PRINT" DEFINICION DEL FORMATO" 


A E A 
PRINT 
PRINT 
RESTORE 
FOR F=1 TO 7 
READ AFS$ 
READ NE$ 
READ ME$ 
PRINT MES$; 
IF F=6 THEN PRINT "Margen cuando XY ==> infi. ("; 
PRINT K1$(F);")";CHR$(29);CHR$(29); 
LET K$=INKEY$ 
IF K$="" THEN GOTO 1890 
IF ASC(K$)>90 THEN LET K$=CHR$(ASC(K$)-32) 
IF K$<>"" THEN IF K$=AF$ OR K$=NE$ THEN LET K1$(F)=K$ 
IF K$<>AF$ AND K$<>NE$ THEN PRINT ELSE PRINT K1$(F) 
NEXT F 
RETURN 
REM 
REM RSS SOlO SOS lO la lO lala lalOllalololOlololaK 
REM **x* CAMBIO DE LA FUNCION xxx 
REM SOS lO Olaf lSlo a lalalajolalolalolololak 
REM 
CLS 
LOCATE 22,21 , 
PRINT "Cambiar la ecuacion y pulsar F1"; 
LOCATE 10,20 
EDIT 1520 
GOTO 1460 
CLS 
REM 
REM aSSSSSSlOSlOOlOlOlolOjolOjOK 
REM xxx DIBUJA EJES x*xx 
REM aSSSIO SEO lOlalolalolajolalak 
REM 
REM *** DIBUJO DEL RECUADRO *xx 
REM 
VIEW(240, 0)-(639, 199) 
WINDOW(-200, -200) -(200, 200) 
LINE(-200, 0)-(-200, 200), 1 
LINE(-200, 200)-(200, 200), 1 
LINE(200,200)-(200, -200), 1 
LINE(-200, 0)-(-200, -200), 1 
LINE(-200, -200)-(200,-200), 1 
REM 
REM *x*x* DIBUJO DEL EJE X x*x*x 
REM . 


2250 IF K1$(2)="N" THEN GOTO 2370 
2260 LINE(5,38)-(-5,38),1 

2270 LINE(5,76)-(-5,76),1 

2280 LINE(5,114)-(-5,114),1 

2290 LINE(200,0)-(-200, 0), 1 

2300 LINE(5,152)-(-5,152),1 

2310 LINE(5,190)-(-5,190), 1 

2320 LINE(5,-38)-(-5,-38), 1 

2330 LINE(5,-76)-(-5,-76),1 

2340 LINE(5,-114)-(-5,-114),1 
2350 LINE(5,-152)-(-5,-152),1 
2360 LINE(5,-190)-(-5,-190), 1 
2370 PSET(O, 0) 

2380 REM 

2390 REM **x* DIBUJO DEL EJE Y x*x*x 
2400 REM 

2410 IF K1$(3)="N" THEN GOTO '2530 
2420 LINE(O, 200)-(0,-200), 1 

2430 LINE(38,5)-(38,-5), 1 

2440 LINE(76,5)-(76,-5),1 

2450 LINE(114,5)-(114,-5),1 


2460 LINE(152.5)-(152,-5).1 
2470 LINE(190, 5)-(190,-5),1 


2480 LINE(-38,5)-(-38,-5),1 

2490 LINE(-76,5)-(-76,-5), 1 

2500 LINE(-114,5)-(-114,-5),1 

2510 LINE(-152,5)-(-152,-5),1 

2520 LINE(-190,5)-(-190,-5), 1 

2530 IF Ki$(7)="S" THEN GOSUB 5390 

2540 REM 

2550 REM daaSSlS ISSSTE lalalala 

2560 REM *x*x* SELECCION DE ESCALA Y AUMENTO xx 

2570 REM AdMSSSOO ESOS OO lalalala lala lalalala lala lalalalalalalalalalololok 

2580 REM 

2590 LOCATE 1,1 

2600 PRINT "Escala del eje X:";Al 

2610 LOCATE 1,19 

2820 INPUT “",A1S ; 

2630 IF Al$<>"" THEN LET A1=VAL(A1$) 

2640 LOCATE 1,19 

2890. PRINT. Als" "* 

2660 LOCATE 2,1 

2670 PRINT "Escala del eje Y:";A2 

2680 LOCATE 2,19 

2690 INPUT "",A2$ 

2700 IF A2$<>"" THEN LET A2=VAL(A2$) 

2710 LOCATE 2,19 

2120 PRINT 423". * 

2730 LOCATE 12,31 

2740 PRINT "X="; INT(1000*x200/A1)/1000 

2750 LOCATE 1,58 

2760 PRINT "Y=";INT(1000*x200/A42)/1000 

2770 LOCATE 3,1 

2780 LET AU(1)=0 

2790 PRINT "Ampliacion en eje X (0-9)";AU(1) 

2800 LOCATE 3,27 

2810 INPUT "",AU$(1) 

2820 LOCATE 3,27 

2830 PRINT, AU$(1) 

2840 IF AU$(1)<>"" AND AU$(1)<>"0" THEN GOTO 2850 ELSE GOTO 2900 
2850 IF AU$(1)<>"1" AND AU$(1)<>"2" THEN GOTO 28860 ELSE GOTO 2900 
2860 IF AU$(1)<>"3" AND AU$(1)<>"4" THEN GOTO 2870 ELSE GOTO 2900 
2870 IF AU$(1)<>"5" AND AU$(1)<>"8" THEN GOTO 2880 ELSE GOTO 2900 
2880 IF AU$(1)<>"7" AND AU$(1)<>"8" THEN GOTO 2890 ELSE GOTO 2900 
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2890 IF AU$(1)<>"9" THEN GOTO 2770 

2900 LOCATE 4,1 

2910 LET AU(2)=0 

2920 PRINT "Ampliacion en eje Y (0-9)";AU(2) 

2930 LOCATE 4,27 

2940 INPUT "",AU$(2) 

2950 LOCATE 4,27 

29860 PRINT AU$(2) 

2970 IF AU$(1)<>"" AND AU$(1)<>"0" THEN GOTO 2980 ELSE GOTO 3030 
2980 IF AU$(1)<>"1" AND AU$(1)<>"2" THEN GOTO 2990 ELSE GOTO 3030 
2990 IF AU$(1)<>"3" AND AU$(1)<>"4" THEN GOTO 3000 ELSE GOTO 3030 
3000 IF AU$(1)<>"5" AND AU$(1)<>"6" THEN GOTO 3010 ELSE GOTO 3030 
3010 IF AU$(1)<>"7" AND AU$(1)<>"8" THEN GOTO 3020 ELSE GOTO 3030 
3020 IF AU$(1)<>"9" THEN GOTO 2900 

3030 IF AU$(1)="" THEN AU(1)=1 

3040 IF AU$(1)="0" THEN AU(1)=10 

3050 IF AU$(1)="1" THEN AU(1)=20 

3060 IF AU$(1)="2" THEN AU(1)=30 

3070 IF AU$(1)="3" THEN AU(1)=40 

3080 IF AU$(1)="4" THEN AU(1)=50 

3090 IF AU$(1)="5" THEN AU(1)=860 

3100 IF AU$(1)="6" THEN AU(1)=70 

3110 IF AU$(1)="7" THEN AU(1)=80 

3120 IF AU$(1)="8" THEN AU(1)=90 

3130 IF AU$(1)="9" THEN AU(1)=100 

3140 IF AU$(2)="" THEN AU(2)=1 

3150 IF AU$(2)="0" THEN AU(2)=10 

3160 IF AU$(2)="1" THEN AU(2)=20 

3170 IF AU$(2)="2" THEN AU(2)=30 

3180 IF AU$(2)="3" THEN AU(2)=40 

3190 IF AU$(2)="4" THEN AU(2)=50 

3200 IF AU$(2)="5" THEN AU(2)=60 

3210 IF AU$(2)="6" THEN AU(2)=70 

3220 IF AU$(2)="7" THEN AU(2)=80 

3230 IF AU$(2)="8" THEN AU(2)=90 

3240 IF AU$(2)="9" THEN AU(2)=100 

3250 IF Ki$(4)="S" THEN GOTO 3350 

3260 REM 

3270. REM atajo lOlolojoJÓK 

3280 REM *** SELECCION DE PASO (STEP) kx 

3290 REM aaa lalala jOlOlOlO lalo lOjajojojojok 

3300 REM 

3310 LOCATE 5,1 

3320 PRINT "STEP:";S 

3330 LOCATE 5,7 

3340 INPUT "",S 

3350 IF K1$(4)="S" THEN LET S=2/A1:LOCATE 5,1:PRINT "STEP: Autom.";S 
3360 IF S=0 THEN LET S=2/A1 

3370 IF K1$(1)="T" THEN GOTO 4430 

3380 GOTO 3410 

3390 END 

3400 REM 

3410 REM ss S ISS lSSSISlSlSSISIlllMlIllTlllalallolofolajolojok 

3420 REM *x* TRATAMIENTO GRAFICO DE LAS FUNCIONES »xokx 

3430 REM AXSMSSS SISSI lala lOlOlOlojoK 

3440 REM 

3450 REM aaa lRVIRISIIOIOJOK 

3460 REM x*x*x* DIBUJAR CON PUNTOS xk 

3470 REM aa SIONISMO lalala lVlOJOK 

3480 REM 

3490 REM x*xx** DIBUJO DE F(X) x*x*x 

3500 REM , 
3510 ON ERROR GOTO 5340 

3520 LOCATE 8,1 


3530 PRINT "Funcion: f(x)" 

3540 PRESET(X5, 0) 

3550 LET XPOS=X5 

3560 LET YPOS=0 

3570 FOR X=X5 TO 200/A1 STEP S 

3580 IF Ki$(5)="S" THEN LOCATE 6,1:PRINT "X:";XPOS;" ":LOCATE 7,1:PRINT 
do PA 0 di : 

3590 IF Xx*A1>32750 OR Y*A2>32750 OR Xx*A1<-32750 OR Y*A2<-32750 THEN GOTO 38670 

3600 IF Ki$(6)="N" THEN 1F XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THE 

N GOTO 3710 

3610 LET PX=INT(X*A1x*AU(1)) 

3620 LET XPOS=PX 

3630 LET PY=0 

3640 LET PY=INT(FN Y(X)*A2*AU(2)) 

3650 LET YPOS=PY 

3660 PSET(PX, PY) 

3670 NEXT X 

3680 REM 

3690 REM **x*x DIBUJO DE F(-X) *xxk 

3700 REM 

3710 LOCATE 8,1 

3720 PRINT "funcion:f(-x)" 

3730 PRINT SPACE$(28) 

3740 PRESET(-200/A1, 0) 

3750 LET XPOS=-200/A1 

3760 LET YPOS=0 

3770 FOR X=-200/A1 TO X5 STEP S 

3780 IF K1$(5)="S" THEN LOCATE 6,1:PRINT "X:";XPOS;" ":LOCATE 7,1:PRINT 
e in 0 d 

3790 IF X*xA1>32750 OR Y*A2>32750 OR Xx*A1<-32750 OR Y*A2<-32750 THEN GOTO 3870 

3800 IF K1$(6)="N" THEN IF XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THE 

N GOTO 3910 

3810 LET PX=INT(X*A1x*AU(1)) 

3820 LET XPOS=PX 

3830 LET PY=0 

3840 LET PY=INT(FN Y(X)x*A2x*AU(2)) 

3850 LET YPOS=PY 

3860 PSET(PX, PY) 

3870 NEXT X 

3880 REM 

3890 REM *x*x* DIBUJO DE -F(X) *xx 

3900 REM 

3910 LOCATE 8,1 

3920 PRINT "Funcion:-f(x)" 

3930 PRINT SPACE$(28) 

3940 PRESET(X5, 0) 

3950 LET XPOS=X5 1 

3960 LET YPOS=0 

3970 FOR X=X5 TO 200/A1 STEP S 

3980 IF K1$(5)="5" THEN LOCATE 6,1:PRINT "“X:";XPOS;" ":LOCATE 7,1:PRINT 
mó PS ls 

3990 IF XxA1>32750 OR YxA2>32750 OR XxA1“-32750 OR YxA2<-32750 THEN GOTO 4070 

4000 IF K1$(6)="N" THEN IF XPOS>205 OR Yru3>»z2w OR XPOS<-205 OR YPOS<-205 THE 

N GOTO 4110 

4010 LET PX=INT(X*A1*A0(1)) 

4020 LET XPOS=PX 

4030 LET PY=0 

4040 LET PY=INT(-(FN Y(X)*A2x*AU(2))) 

4050 LET YPOS=PY 

4060 PSET(PX, PY) 

4070 NEXT X 

4080 REM 

4090 REM *x** DIBUJO DE -F(-X) *xkx a 

4100 REM 
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4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 


yor 


4190 
4200 


4210 
4220 
4230 
::4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 


LOCATE 8,1 
PRINT "Funcion: -f( -x)" 
PRINT SPACE$(28) 
PRESET(-200/A1,0) 
LET XPOS=--200/A1 
LET YPOS=0 
FOR X=-20C/A1 TO X5 STEP S 
IF Ki$(5)="S" THEN LOCATE 6,1:PRINT “X:";XPOS;" 
S51POSS— si 


":LOCATE 7,1:PRINT 


IF X*A1>32750 OR Y*A2>32750 OR X*A1<-32750 OR Yx*A2<-32750 THEN GOTO 4270 


IF K1$(6)="N" THEN IF XPOS>205 OR YPOS>205 OR XPOS<-205 OR YPOS<-205 THE 
N GOTO 4280 


LET “PX=INT(X*A1*AU(1)) 
LET XPOS=PX 
LET PY=0 
LET PY=INT(-(FN Y(X)*A2x*AU(2))) 
LET YPOS=PY 
PSET(PX, PY) 
NEXT X 
LOCATE 12,1 
IAE SS 
LOCATE 13,1 
PRINT ."*PULSA UNA TECLAX" 
LOCATE 14,1 
II 
LET A$=INPUT$(1) 
GOTO 1460 
REM 
OS 


4380 REM **x* DIBUJAR CON TRAZO kx 


4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 


REM SSSS SS SS SES SS OSOS OOOO KK 

REM 

REM *xx* DIBUJO DE F(X) x*xx 

REM 

ON ERROR GOTO 5340 

LOCATE 8,1 

PRINT "Funcion: f(x)" 

PRINT SPACE$(28) 

PRESET(X5, 0) 

LET XPOS=X5 

LET YPOS=0 

FOR X=X5 TO 200/41 STEP $S , 
IF K1$(5)="S" THEN LOCATE 6,1:PRINT “X:";XPOS; ” 


“Y: ¿TUOB;> 
IF X*A1>32750 OR Y*A2>32750 OR X*A1<-32750 OR Y*A2<-32750 THEN GOTO 4800 
IF K1$(6)="N" THEN IF XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THE 
N GOTO- 4640 


4520 
4530 


4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 


, LET PX=INT(X*A1*AU(1)) 
LET XPOS=PX 
LET PY=0 
LET PY=INT(FN Y(X)*A2*AU(2)) 
LET YPOS=PY 
LINE -(PX,PY),1 
NEXT X 
REM 
REM *xx* DIBUJO DE F(-X) **x* 
REM 
LOCATE 8,1 
PRINT "funcion: f(-x)" 
PRINT SPACE$(28) 
PRESET(-200, 0) 
LET XPOS=-200 
LET YPOS=0 
FOR X=-200/A1 TO X5 STEP S 


":LOCATE 7,1:PRINT 


4710 IF K1$(5)="S" THEN LOCATE 6,1:PRINT "X:";XPOS;" ":LOCATE 7,1:PRINT 
a ; 
4720 IF X*A1>32750 OR Y*A2>32750 OR X*A1<-32750 OR Y*A2<-32750 THEN GOTO 4800 


4730 IF K1$(6)="N" THEN IF XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THE 
N GOTO 4810 


4740 LET PX=INT(X*A1*AU(1)) 

4750 LET XPOS=PX 

4760 LET PY=0 

4770 LET PY=INT(FN Y(X)*A2*AU(2)) 
4780 LET YPOS=PY 

4790 LINE -(PX,PY),1 


4800 NEXT X 
4810 LOCATE 8,1 
4820 REM 
- 4830 REM *** DIBUJO DE -F(X) *x*x 
4840 REM 


4850 PRINT "funcion:-f(x)" 

4860 PRINT SPACE$(28) 

4870 PRESET(X5, 0) 

4880 LET XPOS=X5 

4890 LET YPOS=0 

4900 FOR X=X5 TO 200/A1 STEP S 

4910 IF K1i$(5)="S" THEN LOCATE 6,1:PRINT "X:";XPOS;" ":LOCATE 7,1:PRINT 
as POS: > Ñ 

4920 IF X*A1>32750 OR Y*A2>32750 OR X*A1<-32750 OR Y*A2<-32750 THEN GOTO 5000 

4930 IF K1$(6)="N" THEN IF XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THE 

N GOTO 5040 

4940 LET PX=INT(X*A1*AU(1)) 

4950 LET XPOS=PX 

4960 LET PY=0 

4970 LET PY=INT(-(FN Y(X)*A2*AU(2))) 

4980 LET YPOS=PY 

4990 LINE -(PX, PY), 1 

5000 NEXT X 

5010 REM 

5020 REM *xx* DIBUJO DE -—F(-X) *x*x 

5030 REM 

5040 LOCATE 8,1 

5050 PRINT "funcion:-f(-x)" 

5060 PRINT SPACE$(28) 

5070 PRESET(-200, 0) 

5080 LET XPOS=-200 

5090 LET YPOS=0 

5100 FOR X=-200/A1 TO X5 STEP S 

5110 IF K1$(5)="S" THEN LOCATE 6,1:PRINT "X:";XPOS;" ":LOCATE 7,1:PRINT 
“Y POS ña 

5120 IF X*A1>32750 OR Y*A2>32750 OR X*A1<-32750 OR Y*A2<-32750 THEN GOTO 5200 

5130 IF K1$(6)="N" THEN IF XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THE 

N GOTO 5210 

5140 LEY PX=INT(X*A1*AU(1)) 

5150 LET XPOS=PX 

5160 LET PY=0 

5170 LET PY=INT(-(FNY(X)*A2*AU(2))) 

5180 LET YPOS=PY 

5190 LINE -(PX,PY), 1 

5200 NEXT X 

5210 LOCATE 12,1 

5220 PRINT 'MaRaRlORMRlOOldlolalololalook 

5230 LOCATE 13,1 

5240 PRINT "*PULSA UNA TECLAX”"” 

5250 LOCATE 14,1 

5260 PRINT "aMMMSSlONSlSISlOlolOIOTAK 

5270 LET A$=INPUT$(1) 

5280 GOTO 1460 
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5290 REM 

5300 REM adMaidaOlOOlO Ola lalalalala lala jalalolalajolalalalalalok 
5310 REM *x*x* TRATAMIENTO DE ERRORES xxx 
5320 REM adaaldaaaiOala lalala lalalala lalala lalala jalalalololalolok 


5330 REM 
5340 LOCATE 9,1 


5350 PRINT "*x* ERROR. SOBREPASA RANGO *x" 

5360 RESUME NEXT 

5370 END 

5380 REM 

5390 REM AMSMSlS SOS lOlOlO SOS lolo jololOlajolojok 

5400 REM x*x*x* DUBUJA CUADRICULA *xxk 

5410 REM AaSSMS SOS lSlOlS SIS lSlolOjalolololojolok 

5420 REM , 

5430 LINE(200,38)-(-200, 38), 1 

5440 LINE(200, 76)-(-200,76), 1 

5450 LINE(200, 114)-(-200, 114), 1 

5460 LINE(200, 152)-(-200, 152), 1 

5470 LINE(200, 190)-(-200, 190), 1 

5480 LINE(200, -38)-(-200, -38), 1 

5490 LINE(200, -76)-(-200, -76), 1 

5500 LINE(200,-114)-(-200,-114), 1 

5510 LINE(200, -152)-(-200,-152), 1 

5520 LINE(200, -190)-(-200, -190), 1 

5530 LINE(38,200)-(38,-200), 1 

5540 LINE(76,200)-(76,-200), 1 

5550 LINE(114,200)--(114,--200), 1 

5560 LINE(152,200)-(152,-200), 1 

5570 LINE(190,200)-(190,-200), 1 

5580 LINE(-38,200) -( -38,-200), 1 

5590 LINE(-76,200)-(-76,-200), 1 

5600 LINE(-114,200)-(-: 14,-200), 1 

5610 LINE(-152,200)-(-152,-200), 1 

5620 LINE(-190,200)-(-190, -200), 1 

5630 RETURN 

5640 REM 

5650 REM ddSSSS SS lSlOISlOlSlOlojoloJOK 

5660 REM xxx LINEAS DATA x*xx* 

5670 REM SISMO ISlSlSlOOlOjOlOlOlOIO OK 

5680 REM 

5690 DATA *“P”,"T","1...Punto o Trazo. (' 

5700 DATA "S","N","2...Dibuja eje x. (” 
C 
( 


5710 DATA "S","N","3...Dibuja eje y. 
5720 DATA "S”","N","4...STEP. Auto. 
5730 DATA "S","N","5...Escribe valores de x e y. (" 

5740 DATA "S","N","86..." 

5750 DATA "S","N","7...Dibuja cuadricula. de 

5760 REM 

B77O REM MSM SISSI lll lll lll lalola 

5780 REM **x*x FIN DE LA DEFINICION DE LA FUNCION ok 

5790 REM ddaaSalOS OOO ISSO lSlS ESOO alO ll” lolalolalajolaK 

5800 REM 

5810 VIEW 

5820 CLS 

5830 PRINT "Si has definido el formato, tendras que volver a hacerlo. " 

5840 PRINT 

5850 PRINT "PULSA UNA TECI.A" 

/ 5860 LET A$=INPUT$(1) AN 
5870 RUN : - 


El programa está preparado para dibu- 
jar la función y su inversa. Lo que real- 
mente hace el programa es representar: 


[A Flg. 3. Representación de y = sen (Xx) + X. 


Una vez que hayamos elegido la op- 
ción 1 para representar la función, el pro- 
grama nos pedirá algunos datos como la 
escala en X y en Y de los ejes donde se 
visualizará la función. 


Fig. 4. Representación de y = sen (x) /x. 


También nos preguntará si queremos 
ampliación en X, en Y o en ambas a la 
vez. Con esto podemos hacer que una 
parte de la función se vea mejor y más 
grande. 


Escala del ej 
Escala del e 
Ampliacion e 


Liacion e 
ce: dk 
%:=2 
Y:-398 
Funcion: -£(-) 


O rIGaRiDacOdAS 
APULSA UNA TECLA* 
a A IAICIdaOS 


[4 Fig. 5. Representación de y =. 


Aunque al principio los resultados no 
sean los deseados, no hay que preocu- 
parse. Es necesario jugar un poco con la 
graduación del eje de coordenadas y 
con la amplitud en X y en Y para obtener 
un mayor rendimiento del programa. 


Programa: ácidos 
(m e hidróxidos para Spectrum 


Aparece a continuación el segundo 
programa realizado específicamente 
para SPECTRUM con el que podremos re- 
pasar nuestros conocimientos sobre quí- 
mica. En este caso veremos la formula- 
ción de los ACIDOS (hidrácidos y oxáci- 
dos) e HIDROXIDOS. 


El programa nos preguntará nuestro 
nombre e, inmediatamente, comenzará 
a preguntarnos. En la pantalla nos apare- 
cerán una serie de símbolos químicos y 
el nombre de uno de ellos. Tenemos que 
pulsar el número que se encuentra junto 
a la respuesta correcta. 


En caso de no acertar, el ordenador 
nos indicará cual es la respuesta correc- 


PROGRAMAS 


* * ACICOS-HIDROXIDOS * + 


Hombre a AMDRE= 
ler apellido: LOPEZ 
240 apellido: ALVAREZ 


QnIMIEA 


ta. En cualquier caso, tras contestar una 
pregunta le podemos decir al ordenador 
que queremos terminar el test pulsando 
la letra «A». Cuando lo hagamos nos apa- 
recerá en pantalla una pequeña estadís- 
tica que nos contará cómo lo hemos he- 


cho. 


ES 
EEES 


dOjMMIOIOAKk QUIMICA doo 
SOS lOlSlS lol lalo ld lSlOlajolalojolbjak 
**x POR CARLOS DORAL »*x*x 
SOS lSIS SPSS ISO lSlSlSlOlSlOIOISIIOK 


AOOOOIOIOIOIOISIOOSIOIOlOlOOlOIOjoIOiOK 


MoMIOlOlOlok. ACIDOS AXdOlO OOO: 
ISSO llIOIOIOIOIOIOIOIOIOIOK 
alojó HIDROXIDOS voto 
SISSI 


P 
+ 
* 
- 
* 
” 
* 
* 
* 
+ 
* 
* 
- 
* 
* 
* 
* 
= 


ACIDOS-MHIDROXICOS 

PERRA Pr AA 
Cd (0Hn)2 

.- H3 N O 

"A EL 

mn Er Os 

H IO 

H2 Se OS3S 

Cu. (10H) 2 


nJ3n OR 


Acido PERER 


FPreguntas:10 E 
Aciertos :9 EJ 
Resultado del control: 


UH ARA RARAS 


12934380 780090.109 =. . 
E 


Haz tenido un Sobresaliente 
Enhorabuena !',sigue asi. 


REM 
DIM 
DIM 
CLS 


AE EEES 


r$(7,8) 
p(87) 


PRINT AT 0,3; FLASH 1;"x* * ACIDOS-HIDROXIDOS * *" 
PRINT AT 3,0;"Nombre 


180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 


PRINT AT 5,0;"ler apellido: 
PRINT AT 7,0;"2do apellido: 
POKE 23658,8 


RESTORE 260 
FOR f=10 TO 14 

READ a$ 

PRENT AT:8, Las 
NEXT f 
DATA " RR. RR RR AA OO OK" 
DATA "x KA NOR ed ¡e € NS 
DATA "x - E E dololoK" 
DATA "E EKOR LEAR kk ok E des 
DATA "KK RRA A E E E 


INPUT "Nombre: "; LINE n$ 
IF LEN n$<1 OR LEN n$>18 THEN GO TO 310 
PRINT AT 3,14; PAPER 4;n$ 
INPUT "ler apellido: "; LINE a$ 
IF LEN a$<1 OR LEN a$>18 THEN GO TO 340 
PRINT AT 5,14; PAPER 6;a$ 
INPUT "2 apellido: "; LINE b$ 
IF LEN b$<1 OR LEN b$>18 THEN GO TO 370 
PRINT AT 7,14; PAPER 6;b$ 
PRINT INK 4;%0; FLASH 1;" PULSA UNA TECLA 
FOR c=0 TO 6 

FOR f=10 TO 14 

PRINT INK c;AT f,0; OVER 1;" 

NEXT f 

IF INKEY$<>"" THEN GO TO 480 
NEXT e 
GO_TO 410 
LET b=0 
LET p=0 
CLS 
PRINT AT 2,0;"PREGUNTAS= ";p;" ACERTADAS= ";b 
RANDOMIZE O 
DIM r(87) 
PRINT AT 0,3; FLASH 1;"X* * ACIDOS-HIDROXIDOS * *" 
TRE ARO AEREA ASA AAA 


FOR f=4 TO 18 

PRINT-AT T¡O5*"*X"75AT E,31:*X” 
NEXT f 
LET rn=1+INT (RNDx87) 
IF p(rn)=1 THEN GO TO 600 
LET p(rn)=1 
LET e=1670+(rnx10) 
RESTORE e 
READ p$ 
READ o$ 
IF rn>44 AND rn<52 THEN LET a$="Acido "+p$+"HIDRICO" 
IF rn<44 THEN LET a$="Acido "+p$ 
IF rn>52 THEN LET a$="Hidroxido "+p$ 
FOR f=1 TO 7 

LET a=INT (RND*x86)+1 

IF r(a)=1 THEN GO TO 710 

LET r(a)=1 

LET e=(1670+(10*a)) 

RESTORE e 

READ r$(f) 

READ r$(f) 
NEXT f 
LET ac=(INT (RND*6)+1) 
LET r$(ac)=0$ 
LET y=1 
FOR f=5 TO 17 STEP 2 

PRINT AT F,3;y;".- “;r$(y) 
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840 LET y=y+1 
850 NEXT f 


860 PRINT AT 20, (32-LEN a$)/2;a$ 


870 LET k$=INKEY$ 


880 IF CODE k$<49 OR CODE k$>55 THEN GO TO 870 
890 IF VAL k$=ac THEN GO SUB 1420: GO TO 910 


900 GO SUB 1510 
910 LET p=p+1 


920 PRINT +0;" A-ACABAR S-SEGUIR a 


930 LET k$=INKEY$ 


940 IF k$="A" OR k$="a" THEN GO TO 970 
950 IF k$="S" OR k$="s" THEN GO TO 500 


960 GO TO 930 


970 REM REPRESENTACION GRAFICA 


980 CLS 


990 PRINT AT 0,11; INVERSE 1;"RESULTADO" 
1000 PRINT AT 3,0;"Preguntas:";p 
1010 PRINT AT 5,0;"Aciertos :";b 


1020 FOR f=110 TO 110+p 
1030 PLOT INK 1;f,152 
1040 DRAW  INK 1;0,-9 
1050 NEXT f 


1060 IF b=0 THEN GO TO 1110 De 


1070 FOR f=110 TO 110+b 
1080 PLOT INK 3;f,135 
1090 DRAW  INK 3;0,-9 
1100 NEXT f 


1110 PRINT AT 7,3;"Resultado del control:" 


1120 PLOT 25,90 

1130 DRAW 158,0 

£140 PRINT'AT 9,35 1 2.3 
11350 LET x=23 

1160 LET y=85 

1170 LET t=((b/p)*100) 


4567809 u10" 


I180PRINT AT 9 24"= "¡INT 4;" E" 


1190 LET rsINT (t/10) 
1200 LET r=rx10 

1210 LET r=t-r 

1220 LET t=t/10 


1230 FOR f=x TO ((x+INT t*x16)-8)+r 


1240 PLOT INK 4;f,y 
1250 DRAW  INK 4;0,-9 
1260 NEXT f 


1270 LET i$="Muy deficiente" 
1280 LET t$="No has tocado ni un libro,no te da verguenza ?" 


1290 IF t>2 AND t<5 THEN 
ta que noestudies mas no 
1300 IF t>4 AND t<6 THEN 
1310 IF t>5 AND t<7 THEN 
1320 IF t>6 AND t:<9 THEN 
Don "+n$ 


LET i$-"Insuficiente": LET t$="Fuera de mi vista !,has 
jugaras conmigo." 

LET i$="Suficiente": LET t$="Tienes que estudiar mas. " 
LET i$="Bien": LET t$="Muy bien.": GO TO 1340 

LET i$5f="Notable": LET t$="Estupendo. Vas bastante bien 


1330 IF-t>8 THEN IET i$-"Sobresaliente !": LET t$=" Enhorabuena !,sigue asi." 


1340 PRINT AT 15,0;t$ 


1350 PRINT AT: 13,0;"Has tenido un "; FLASH 1;i$ 
1360 INPUT "Quieres repetir (S/N) 2";t$ 


1370 IF t$="3" OR t$="s" 
1380 STOP 
1390 CLEAR 


THEN GO TO 150 


1400 SAVE "ACIDOS-HDX” LINE 130 


1410 STOP 


1420 REM dedRSlSISISISISIOlSlElSlOOOISIOROIOIOIOK 
1430 REM ** RESPUESTA ACERTADA * 
1440 REM ARMSSSS ISSO ISS ISSO ISISIOJOJOOJOK 
1450 PRINT AT 20,5; FLASH 1;" * * * MUY BIEN * x x " 


1460 FOR f=1 TO 40 


1470 BEEP .03,INT (RND*50) 


1480 NEXT f 


LET b=b+1 

RETURN 

REM ROCOSO OOOO lOlaIololoK 

REM ** RESPUESTA FALLADA %*x* 

REM SOS lOlSO OOO lalala lalalala lajalalolok 

PRINT AT 20,0; FLASH 1;" O000H, FALLASTE ! 


FOR F=0 TO -15 STEP -1 
BEEP .10,F 
NEXT F 
FOR f=1 TO 50 
NEXT f 
PRINT AT 20,0;" LA CORRECTA ERA ";o$;" 


PRINT AT 3+(ac*2),3; FLASH 1; OVER 1;TAB 27 
FOR f=1 TO 200 

NEXT f 

RETURN 

REM dSSSSS dEl OO OOO jajalolololak 
REM **PREGUNTAS-RESPUESTAS* 
IAN E EEES 
DATA "HIPOCLOROSO","H C1 O" 
DATA "CLOROSO","H C1 02" 

DATA "CLORICO","H Cl 03" Ss 
DATA "PERCLORICO","H Cl 04" 
DATA "HIPOFLUOROSO","H F O" 
DATA "FLUOROSO”,"H F 02” 

DATA "FLUORICO","H F 03" 

DATA "PERFLUORICO","H F 04" 
DATA "HIPOBROMOSO","H Br O" 
DATA "BROMOSO","H Br 02” 

DATA "BROMICO","H Br 03" 

DATA "PERBROMICO”,"H Br 04" 
DATA "HIPOYODOSO","H I O" 

DATA "YODOSO","H I 02" 

DATA “YODICO","H I 03" 

DATA "PERYODICO","H I 04” 

DATA "HIPOSULFUROSO”,"H2 S 02" 
DATA "SULFUROSO","H2 S 03" 
DATA "SULFURICO","H2 S 04” 
DATA "HIPOSELENIOSO","H2 Se 02" 
DATA "SELENIOSO","H2 Se 03" 
DATA "SELENICO","H2 Se 04" 
DATA "HIPOTELUROSO","H2 Te 02” 
DATA "TELUROSO","H2 Te 03” 
DATA "TELURICO","H2 Te 04” 
DATA "HIPONITROSO","H3 N O” 
DATA "NITROSO”,"H3 N 02” 

DATA "NITRICO"”,"H3 N 03" 

DATA "HIPOFOSFOROSO”,"H3 P O" 
DATA “FOSFOROSO","H3 P 02" 
DATA "FOSFORICO”,"H3 P 03" 
DATA "HIPOARSENIOSO","H3 As O” 
DATA "ARSENIOSO","H3 As 02" 
DATA "ARSENICO","H3 As 03" 
DATA "HIPOANTIMONIOSO”,"H3 Sb O" 
DATA "ANTIMONIOSO”,"H3 Sb 02" 


lO BETA “AMTTBOUICO", “ES YE os* 


DATA "HIPOBISMUTOSO”,"H3 Bi O" 
DATA "BISMUTOSO”,"H3 Bi 02" 
DATA "BISMUTICO","H3 Bi 03" 
DATA "CARBONOSO”,"H2 Co 02" 
DATA "CARBONICO","H2 Co 04" 
DATA "SILICIOSO","H2 Si 02" 
DATA "“SILICICO","H2 3i 04" 
DATA "CLOR”,"B C1" 

DATA "FLUOR”, "H F” 

) DATA "BROM","H Br" 

DATA "YOD","H I" 


2 PROGRAMAS 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


SULF 7 "828." 
"SELEN", "H2 Se" 
"TELUR","H2 Te” 
FLITICO”, "Li "(08)" 
“SODICO", "Na (0H)" 
“"POTASICO","K (0H)" 
"RUBIDICO","Rb (OH)” 
“CESICO", "Cs (0H) " 
"ARGENTIOSO", "Ag (OH)" 
"ARGENTICO","Ag (0H)2" 
“CUPROSO", "Cu (0H)" 
"CUPRICO", "Cu (0H)2" 
"AUROSO", "Au (0H)" 
"AURICO","Au (0H)3" 
“CALCICO","Ca (0H)2" 
"BERILICO", "Be (0H)2" 
“ESTRONCICO", "Sr (0H)2" 
“BARICO","Ba (0H)2" 
"RADICO", "Ra (0H)2" 
“MAGNESICO", "Mg (0H)2" 
"ZINCICO”","Zn (0H)2" 
"CADMICO","Cd (0H)2" 
"FERROSO", "Fe (0H)2" 
“"FERRICO", "Fe (0H)3" 
"NIQUELOSO", "Ni (0H)2" 
"NIQUELICO", "Ni (0H)3" 
"CROMOSO", "Cr (0H)2" 
“CROMICO", "Cr (0H)3" 
“COBALTOSO", "Co (0H)2" 
“COBALTICO", "Co (0H)3" 
"MANGANOSO”", "Mn (0H)2" 
"MANGANICO", "Mn (0H)3" 
"ALUMINICO", "Al (0H)3" 
"BORICO","Bo (0H)3" 
"PLUMBOSO", "Pb (0H)2" 
"PLUMBICO", "Pb (0H)4" 
"ESTANNOSO", "Sn (0H)2" 
"ESTANNICO", "Sn (0H)4" 
"PLATINICO", "Pt (0H)4" 
"IRIDICO", "Ir (0H)4" 


Analisis ) 
== Y Concepción 
A segunda fase del 
desarrollo de un pro- 
yecto de automatiza- 
ción industrial es la 
que, desde nuestro 
punto de vista (el del 
analista), resulta más 
interesante. En ella 
toman forma todas las informaciones pre- 
viamente obtenidas y estudiadas, y es la 
tarea más creativa y comprometida. 
Como resultado de esta fase deberán 
quedar claramente establecidos: 


— Las características de los materia- 
les a los que se refiere el proyecto en 
cuestión: es sumamente importante esta 
definición no sólo para la adecuada tipi- 
ficación de los procesos y tareas que 
posteriomente se han de concretar, sino 
para futuras consultas (incluso de pro- 
veedores, en la fase de explotación del 
sistema). 

— Las especificaciones del sistema de 
planificación de la producción que se 
propone, precisando si se va a utilizar al- 
gún software específico para ello (o, in- 
cluso, si ha de diseñarse una aplicación 
«ad hoc»). 

— Los procedimientos de supervisión y 
organización del sistema de producción. 


m Fases del análisis 


Las diferentes fases en que suele de- 
sarrollarse el análisis y concepción de un 
sistema como el que nos ocupa, son las 
que se muestran en la figura y que po- 
dríamos resumir como: 


— Recopilar y analizar los datos obte- 
nidos. 

— Concebir el sistema automatizado 
de producción. 


TECNICAS DE ANALISIS 


PROYECTOS DE AUTOMATIZACION DE LA PRODUCCION 


— Redactar los cuadernos de cargas, 
especificaciones y procedimientos. 

— Evaluar y redactar el proyecto. 

— Decidir. 


PARTE 
E 
7 


Métodos de análisis 
y concepción de sistemas 
de control y supervisión 
Los dos métodos más extendidos que 
se utilizan específicamente para los siste- 


mas de control de la producción son el 
GRA! y el SADT. 


A) 


Método GRAI 


El método GRAI ha sido desarrollado en 
el laboratorio de Automática de la Uni- 
versidad de Burdeos, como resultado de 
un proyecto (de diez años de duración) 
de control en tiempo real de una unidad 
de fabricación. 

Este método se basa en la representa- 
ción de la realidad mediante dos útiles 
gráficos (rejillas y redes) y su manejo, en 
la tarea de análisis, de acuerdo con unas 
reglas específicas. 

La «rejilla GRA!» es una tabla de doble 
entrada donde se representan todos los 
elementos significativos en el proceso de 
producción; en la parte superior, como 
encabezamiento de las diferentes co- 
lumnas, se reseñan las diversas funciones 
involucradas en el proceso en estudio 
(una función está formada por el conjun- 
to de actividades que tienen una finali- 
dad común identificable: planificar, ges- 
tionar recursos, aprovisionar, etc.); en las 
sucesivas filas se incluyen los elementos 
por niveles (se define un nivel como el 
conjunto de actividades que tienen el 
mismo horizonte y el mismo período; por 
tanto, en cada casilla aparecerá un cen- 
tro de actividades (reunión de todas las 
actividades que pertenecen a la misma 
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[A Fig. Fases del desarrollo del análisis. 


función y nivel); también se utiliza el cua- 
dro de decisión, tormado por las informa- 
ciones disponibles acerca de los objeti- 
vos impuestos a un centro de actividades 
y sobre las variables susceptibles de ser 
modificadas respecto a las decisiones a 
tomar que conciernen a ese centro. 

Las «redes GRA!» permiten representar 
las diferentes actividades de la función 
de gestión de la producción, poniendo 
de manifiesto los componentes de cada 
actividad y las operaciones sobre los re- 
sultados y los soportes. El elemento bási- 
co de la red es el soporte (objeto físico o 
de información que interviene en la rea- 
lización de una actividad); se consideran 
dos tipos básicos de soportes: los sopor- 
tes-recursos (objeto, material, herramien- 
ta, etc. que interviene en la tarea y per- 
tenece al sistema físico de desarrollo de 
la actividad) y los soportes-información 
(soporte-resultado, soporte-disparador- 
de-una-tarea, soporte-perturbación, 
etcétera). Mediante una adecuada sim- 
bología (muy precisa y concreta), se re- 
presentan todos los flujos de materiales e 
informaciones involucrados en las activi- 
dades. 


Método SADT 


Fue desarrollado en el cuadro de un 
proyecto de las Fuerzas Armadas de los 
EE.UU. de América. El objetivo básico del 
método, según declaran sus creadores, 
es facilitar la aproximación analítica al 
sistema de producción. 

Se apoya en dos principios básicos: 
definir el sistema a analizar determinan- 
do: a) Las fronteras del sistema; b) El cri- 
terio de análisis, y C) El objetivo del aná- 
lisis; y, en segundo lugar, construir una je- 
rarquía de las actividades realizadas por 
el sistema y los medios necesarios. 

La descripción del sistema se realiza 
utilizando los diagramas de actividades 
(llamados actigramas) y los diagramas 
de datos (datagramas). 

El estudio se desarrolla en dos fases: 
una de análisis (elaboración de diagra- 
mas, establecimiento de ligaduras entre 
los diagramas, indicación de secuencia 
de actividades, etc.) y otra de concep- 
ción de la solución adecuada. Normal- 
mente este método se utiliza con «herra- 
mientas» informáticas que se han de- 
sarrollado al respecto. 


m Programación 
no algorítmica 


N el capítulo anterior 
describí someramen- 
te algunas de las téc- 
nicas que podrían 
hacer posible la pro- 
gramación en para- 
lelo. En esta ocasión 
vamos a hablar de 
otra forma de programar, que ha cobra- 
do gran interés a partir de hace poco 
más de una década. 

Todos los ejemplos presentados en los 
39 capítulos anteriores han sido siempre 
casos particulares de la «programación 
procedimental» o «programación algorítmi- 
ca». Recordemos (véase el capítulo pri- 
mero) que se llama algoritmo a un con- 
junto de reglas y pasos bien definidos 
que permiten realizar un cálculo determi- 
nado. Pues bien, todos los programas es- 
critos en lenguajes de programación 
«Clásicos» (como BASIC, PASCAL, 
APL, etc.) no son, en el fondo, otra cosa 
que algoritmos. En efecto: un programa 
escrito en uno de esos lenguajes es un 
conjunto de instrucciones que se ejecu- 
tan en un orden determinado y comple- 
tamente predecible, en función de los 
datos particulares a los que se aplica y 
sobre los que se trabaja. Por esta razón, 
los programas clásicos, como los algorit- 
mos, pueden representarse en forma de 
organigramas, de lo que hemos dado 
abundantes pruebas a lo largo de esta 
sección. 

En 1972 el francés A. Colmerauer inven- 
tó un nuevo lenguaje de programación 
que se apartaba considerablemente de 
todos los anteriores. En efecto, este len- 
guaje estaba basado en las leyes de la 
lógica matemática y se afirmaba que su 
funcionamiento debía asemejarse, más 
que el de los lenguajes algorítmizos, a la 
forma de pensar del hombre. Su nombre 


TECNICAS DE 
PROGRAMACIÓN 


(PROLOG) es un acrónimo de la frase in- 
glesa «PROgramming in LOGic» (o de la 
francesa «PROgrammation LOGique». El 
lenguaje fue mejorado, en años sucesi- 
vos, por los británicos Warren y Kowalski 
(Edimburgo, 1974). 

En contraposición a los lenguajes de 
programación clásica, los programas es- 
critos en PROLOG no son algoritmicos. Di- 
cho de otra manera: sus instrucciones no 
se ejecutan en un orden predetermina- 
do. Por esta razón, los programas PRO- 
LOG no son representables en forma de 
organigramas, y se dice que el lenguaje 
PROLOG es «no procedimental», porque 
en él no pueden construirse procedi- 
mientos semejantes a los de PASCAL y 
otros muchos lenguajes clásicos. 

Con la llegada de la década de los 
ochenta, los japoneses lanzaron el pro- 
yecto de la «quinta generación de orde- 
nadores». Se trataba de un proyecto muy 
ambicioso, que en el transcurso de una 
década tenía como objetivo la sustitu- 
ción de las computadoras actuales por 
otras de nuevo diseño, basadas en las 
técnicas de la inteligencia artificial, que 
deberían ser capaces de resolver pro- 
blemas tan complejos como el análisis 
del lenguaje natural (podríamos comuni- 
carnos con los ordenadores en nuestra 
lengua nativa) y la traducción automáti- 
ca, lo que provocaría una nueva revolu- 
ción tecnológica, que cambiaría la es- 
tructura de la sociedad tan drásticamen- 
te como las anteriores. No parece que 
estas previsiones vayan a cumplirse, al 
menos en el futuro inmediato, pero es cu- 
rioso observar que el lenguaje escogido 
por los investigadores japoneses para 
servir de base a su quinta generación 
fue, precisamente, PROLOG. 

Los datos de un programa PROLOG se 
definen en una forma especial, basada 
en el cálculo de predicados de primer 
orden. Recuérdese que un predicado no 
es otra cosa que la afirmación de una 
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propiedad de una o varias entidades 
(personas, objetos, etc.). Por ejemplo, al 
afirmar que «Luisa es mujer», enunciamos 
una propiedad (ser mujer) que se aplica, 
precisamente a Luisa. Con la nomencla- 
tura de PROLOG, esta frase (este dato) se 
expresaría así: 


mujer (luisa). 


De igual manera podemos expresar 
una propiedad algo más compleja, que 
afecte a dos entidades distintas. Por 
ejemplo, decir que «Juan es padre de 
Luisa» define una propiedad (una rela- 
ción) que liga a Juan con Luisa. Con la 
nomenclatura de PROLOG, esto se expre- 
sará así: 


padre (juan, luisa) 


Las instrucciones del lenguaje PROLOG 
tienen también una forma muy especial. 
En realidad, existe una forma única (lla- 
mada «cláusula de Horn») que puede es- 
cribirse de una u otra manera depen- 
diendo del intérprete o compilador con- 
creto con que nos encontremos. Una de 
estas formas podría ser la siguiente: 


L1 <-L2 8 L3 ... 8 Ln. 


donde L1, L2, L3, ..., Ln no son otra cosa 
que predicados parecidos a los de los 
ejemplos anteriores, aunque. es posible 
que una o más de las entidades de un 
predicado pueda sustituirse por una va- 
riable (los nombres de las variables, en 
PROLOG, suelen comenzar por un asteris- 
co o una letra mayúscula, aunque esta 
regla no es absolutamente general y de- 
pende del intérprete o compilador). Pues 
bien: la instrucción anterior representa 
una estructura condicional que se puede 
leer de la siguiente manera: «Hacer L] si 
se cumple L2 y L3 y ... y Ln». 


Veamos un ejemplo: 
hija (A, B) <- mujer (A) 8 padre (B, A). 


que se leería de la siguiente manera: «A 
es hija de B si A es mujer y B es padre de 
A». En este ejemplo hemos supuesto que 
los nombres que comienzan por una le- 
tra mayúscula representan variables, y 
pueden sustituirse por cualquier cadena 
de caracteres que cumpla las condicio- 
nes adecuadas. En nuestro caso, si tene- 
mos en cuenta los ejemplos de datos de- 
finidos anteriormente, es evidente que 
podríamos sustituir A por «luisa» y B por 


«juan», con lo que la instrucción anterior 
nos quedaria: 


hija (luisa, juan) <- mujer (lui- 
sa) 8 padre (juan, luisa) 


que se leería así: «Luisa es hija de Juan si 
Luisa es mujer y Juan es padre de Luisa». 
Pero como ya sabemos que Luisa es mu- 
jer y que Juan es padre de Luisa (pues ya 
lo definimos un poco más arriba) la con- 
junción de dichos datos y de esta instruc- 
ción permite al intérprete o compilador 
de PROLOG deducir que, en efecto, Lui- 
sa es hija de Juan. 

Naturalmente, la definición anterior de 
la relación «hija» es incompleta. Una per- 
sona puede ser hija de otra, no sólo si 
ésta es su padre, sino también si es su 
madre. Para mantener esto en cuenta en 
PROLOG, bastaría con introducir la si- 
guiente instrucción adicional: 


hija (A, B) <- mujer (A) 8 madre (B, A). 


que se añadiría a la anterior. El orden en 
que se escriban estas instrucciones, en 
principio, no importa, pues ya hemos dli.- 
cho que PROLOG es un lenguaje no pro- 
cedimental. 

Vamos a ver, como ejemplo de progra- 
mación en PROLOG, cómo se resolvería 
en este lenguaje el problema lógico que 
propusimos en el capítulo anterior, cuyo 
enunciado vamos a repetir aquí. Dicho 
problema está sacado del libro ¿Cómo 
se llama este libro?, de Raymond Smull- 
yan (Ediciones Cátedra, 1978). El proble- 
ma se enunica así: 

«Cuando Alicia entró en el bosque del 
olvido no lo olvidó todo, solamente cier- 
tas cosas. A menudo olvidaba su nom- 
bre, y una de las cosas que más disposi- 
ción tenía a olvidar era el día de la se- 
mana. Ahora bien, el León y el Unicornio 
visitaban frecuentemente el bosque. Los 
dos son criaturas extrañas. El León mien- 
te los lunes, martes y miércoles y dice la 
verdad los otros días de la semana. El Uni- 
cornio, por otra parte, miente los jueves, 
viernes y sábados, pero dice la verdad 
los restantes días de la semana.» 

«Un día Alicia se encontró con el León 
y el Unicornio que descansaban bajo un 
árbol. Ellos dijeron lo siguiente»: 

«León: Ayer fue uno de los días en que 
me toca mentir.» 

«Unicornio: Ayer fue uno de los días en 
que me toca mentir.» 


«A partir de estas dos frases, Alicia (que 
era una chica lista) fue capaz de dedu- 
cir el día de la semana. ¿Qué día era 
éste? 

La solución en PROLOG es la siguiente: 


ayer (domingo, sábado). 

ayer (lunes, domingo). 

ayer (martes, lunes). 

ayer (miércoles, martes). 

ayer (jueves, miércoles). 

ayer (viernes, jueves). 

ayer (sábado, viernes). 

león_miente (lunes). 

león_miente (martes). 

león_miente (miércoles), 

unic_miente (jueves). 

unic_miente (viernes). 

unic_miente (sábado). 

león_habla (DIA) <- ayer (DIA, AYER) 
£ león_miente (DIA) 


£ -= león_miente (AYER). 
león_habla (DIA) <- ayer (DIA, AYER) 


—- 


unic_habla (DIA) 
ES 


RL - 
unic_habla (DIA) 
> 


león_miente (DIA) 
S£ león_miente (AYER). 


<- ayer (DIA, AYER) 
unic_miente (DIA) 
unic_miente (AYER). 
<- ayer (DIA, AYER) 
unic_miente (DIA) 
unic_miente (AYER). 


hoy_es (DIA) <- león_habla (DIA) 
: £ unic_habla (DIA). 


En este programa hemos supuesto que 
los nombres que comienzan por una le- 
tra mayuscula representan variables. El 


signo | representa la negación lógica. 
Puede observarse lo siguiente: 


1. Las siete primeras instrucciones son 
datos que definen cuál es el día de la se- 
mana anterior a cada día concreto. 

2. Lastres instrucciones siguientes son 
también datos que dicen qué días mien- 
te el león. 

3. Las tres instrucciones siguientes di- 
cen qué días miente el unicornio. 

4. Las dos instrucciones siguientes le 
indican al programa que el león sólo 
puede decir esa frase el día que miente, 
si el día anterior no mintió, o el día que 
no miente, si el día anterior mintió. 

5. Las dos instrucciones siguientes 
proporcionan la misma información res- 
pecto al unicornio. 

6. La última instrucción nos dice que 
hoy tiene que ser el día en que tanto el 
león como el unicornio pudieron pronun- 
ciar sus frases respectivas. 


_ Veamos cómo se resuelve el problema 
logico ejecutando el programa anterior: 


= 


<- hoy_es (DIA). 
SUCCESS: hoy_es (jueves). 


UCHAS de las tareas 
que se realizan habi- 
tualmente son fácil- 
mente mecanizables, 
si bien no se pueden 
incluir en ninguno de 
los programas que 
hemos visto hasta 


ahora. 

Realizaremos un recorrido por todos 
aquellos programas difícilmente clasifi- 
cables, pero que brindarán una conside- 
rable ayuda a quien los utilice. 


[A Fig. 1. Programa Siderick. 
O Agendas electrónicas 


En este apartado se incluyen todos 
aquellos programas que de una forma u 
otra permiten planificar la actividad a 
corto y medio plazo, además de permitir 
llevar un fichero tipo agenda telefónica, 
que permitirá buscar datos sobre teléfo- 
nos o direcciones de forma rápida con 
opciones de marcado automático de nú- 
meros de teléfono, para aquellos orde- 
nadores conectados a un modem. 


APLICACIONES 


OTROS PROGRAMAS 


Top Level Me 
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lA Fig. 2. Programa de edición de disco. 


Algunos programas tienen otras opcio- 
nes, como el block de notas, que permi- 
te almacenar datos sin demasiada rela- 
ción entre ellos, pero siempre necesa- 
rios. La mayor parte de ellos incluyen 
también una calculadora para realizar 
operaciones matemáticas, y calendario, 
que puede ser perpetuo o no. 

Este tipo de programas suelen estar en 
un segundo plano en la memoria, permi- 
tiendo la ejecución normal de otros, lla- 
mando a los primeros por la pulsación de 
una serie de teclas. 

Sin duda, el más conocido de estos 
programas es el SIDEKICK, que permite to- 
das las opciones anteriormente dichas. 


'O Comunicaciones 


De la comunicación entre el ordena- 
dor y el exterior se encargan los progra- 
mas de comunicaciones; éstos permiten 
transmitir datos, en forma de ficheros ge- 
neralmente, a otros ordenadores o re- 
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[A | Fig. 3. Pantalla de acceso a Lotus Freelance. 


des, bien sea a través de una red local o 
de una línea telefónica. 

Entre los programas más conocidos de 
comunicaciones están: 

NETWARE DE NOVELL: Comunicaciones 
entre micros en red local, multiusuario y 
multitarea. 

SSI5251: Programa que, junto a algunos 
complementos de hardware, permite la 
comunicación entre un ordenador PC y 
un sistema 36 ó 38 de IBM. 

IBM PC NETWORK PROGRAM: Software de 
red que permite dos modos de funciona- 
miento, para principiantes y expertos. 


LETTRIX Sotiware Improves 


with LETTRIX, your wora processor or other software can print letrer-qu 
text on your EPSON, IBM, STAR, PANASONIC, OKIDATA, or CITIZEN p 


PRINT THIS SCREEN Space Bar 


¡ Á | Fig. 4. Programa para diseño de letras. 


'O Utilidades 


Dentro de este grupo de programas se 
engloban todos aquellos cuya inclusión 
no se puede hacer en los grupos de pro- 
gramas anteriores; generalmente suelen 
proporcionar una herramienta de ayuda 
al usuario, y se orientan a la solución de los 
más diversos problemas. Un primer tipo 
de programas de utilidades son aquellos 
con los que se pueden manejar la infor- 
mación del disco directamente, bien 
sector por sector o por ficheros, permi- 
tiendo de este modo realizar cambios di- 
rectamente en cualquier sector del dis- 
co. Una importante faceta de estos pro- 
gramas es la posibilidad de recuperar fi- 
cheros borrados siempre y cuando no se 
grabe posteriormente a su borrado nada 
en el disco. El más conocido de todos es, 
sin duda, el programa NORTON UTILITIES, 
que permite la edición del disco byte por 
byte. 


[A Fig. 5. Programa copiador. 


Los programas de protección de fiche- 
ros también se pueden incluir dentro de 
las utilidades; estos programas tienen 
como misión fundamental la protección 
de programas en disquette contra las co- 
pias no autorizadas. SYSPRO constituye 
uno de esos programas de protección 
del software, de facil uso, permite prote- 
ger ficheros con una sola instrucción. 

POLICE es un sistema de protección del 
software diseñado para proteger los pro- 
gramas residentes en disco contra co- 
pias no autorizadas. 


ss APLICACIONES 


Otro tipo de utilidades son aquellas 
que trabajan con ficheros y van desde el 
simple programa de ordenación hasta 
los complejos programas de diseño de 
aplicaciones. 

MENUMAKER es un programa que permi- 
te la creación de menús para su utiliza- 
ción por otros programas; a cada menú 
se le pueden asignar palabras clave; se 
pueden incluir hasta 26 menús en un dis- 
co. 

MICROSOFT CLOUT: Permite el análisis y 
consulta de ficheros en un inglés tipo co- 
loquial interpreta sin problemas ficheros 
procedentes de los programas Multiplan, 
Lotus, Base, Ascii, etc. 

SUPERSORT: Programa que clasifica, in- 
tercala y selecciona información de los 
ficheros de datos. 

GAPE: Programa generador de aplica- 
ciones, crea programas en lenguaje ba- 
sic compilable. 

SORT 1.0: Clasifica registros de ficheros 
ascendente o descendentemente, fusio- 
na varios ficheros, así como selecciona 
registros para excluirlos. 

TOP VIEW: Realiza búsquedas en bases 
de datos. Compara datos permitiendo 
presentar los datos de varios programas 


en forma de ventanas que pueden cam- 
biar de aspecto y posición. 


DATA SCREEN: Este programa es un ge- 
nerador de pantallas que permite la de- 
finición de los campos de entrada. Faci- 
lita la creación de ventanas de trabajo. 
Puede trabajar con varios lenguajes 
como Basic, Pascal, etc. 


BASIC WINDOW: Programa de diseño de 
ventanas en Basic; genera una rutina en 
Basic para cargar ventanas en cualquier 
punto de la pantalla. 

REVELATION: Este programa incluye un 
generador de aplicaciones, un complila- 
dor de Basic avanzado, un conjunto de 
utilidades. Asimismo soporta redes loca- 
les y comunicaciones. 


FIXED DISK ORGANIZER: Facilita la orga- 
nización de la información contenida en 
un disco fijo. 


Los programas que hemos presentado 
aquí constituyen una pequeña parcela 
dentro de la gran cantidad de progra- 
mas de ayuda que existen en el merca- 
do; es casi seguro que cualquier tarea 
que realice un usuario normal de ordena- 
dores personales encuentre un progra- 
ma que se adapte a sus necesidades. 


' PROLOG-2 


ON lo visto hasta aho- 
ra podemos declarar 
hechos y hacer pre- 
guntas que nos digan 
si algunos hechos son 
ciertos o falsos. Sería 
útil hacer preguntas 
del tipo “¿qué cosas 
posee Juan?”; para esto existen las varia- 
bles. 

Las variables son objeto que pueden 
tomar cualquier valor. Para distinguirlos 
el intérprete de PROLOG tomará como 
variable todo nombre que comience con 
una letra mayúscula, por lo que podrá 
ser cualquier nombre. Cuando realiza- 
mos una pregunta con una variable el in- 
térprete comenzará a buscar en su base 
de datos todos los objetos que verifican 
dicha relación. 

Por ejemplo, si con la siguiente base de 
conocimientos: 


posee (juan, libro). 
posee (juan, casa). 
posee (pedro, lapiz). 


Al preguntarle: 


?- posee (juan, X). 
X = libro. 


Sólo nos contesta con el primer objeto 
que encuentra que verifica la relación. Si 
quisiéramos que continuase deberíamos 
pulsar la tecla de punto y coma “;”. De 
esta forma continuaría con la búsqueda 
encontrando: 


X = casa 
Si pulsáramos “;” de nuevo nos diría: 
No 


indicando que en su base de datos no 
existen mas objetos que verifiquen la re- 
lación. 


OTROS LENGUAJES 


'O Conjunciones 


Para realizar preguntas más complejas 
e interesantes debemos ser capaces de 
unir distintas proposiciones mediante 
conjunciones. 

La conjunción y (and en inglés) se re- 
presenta mediante la coma “,”. La pro- 
posición total será verdad únicamente 
en el caso que todas las proposiciones 
que la componen son ciertas. Suponien- 
do la base de conocimientos del anterior 
ejemplo veamos otro: 


?- posee (pedro, libro), posee (pedro,casa). 
YES 
?- posee (pedro, libro), posee (pedro, lapiz) 
NO 


La conjunción o (or en inglés) se repre- 
senta mediante el punto y coma “;”. La 
proposición total será verdadera si algu- 
na de las proposiciones lo son. Veamos 
otro ejemplo: 


?- posee (pedro, libro); posee (pedro, lapiz). 
YES 


La última proposición es la negación. 
Esta hace que lo verdadero sea falso y vi- 
ceversa. La función sobre la que actúa 
deberá ir entre paréntesis. 


?- NOT (posee (pedro,libro)). 
NO 


?- posee (pedro,libro), NOT (posee (pedro, lapiz)). 
YES 


Reglas 


Existen casos en que declarar gran 
cantidad de hechos puede ser largo y 
pesado. Para estos casos existen las re- 


AS OTROS LENGUAJES 


glas que indican formas de obtener nue- 
vas relaciones a partir de las ya existen- 
tes. En castellano son equivalentes a las 
construcciones del tipo “si... enton- 
ces...”. Corresponde a la implicación de 
la lógica formal. 

Algunas de las diferentes formas en 
que se pueden escribir las reglas son: 


tio (X,Z) : -padre (x,y), hermano (y,z). 

tio (x,2) <- padre (x,y) 4 hermano (y,z). 
tio (-x,-Z):- padre (-x,-y), hermano (.y,.Z). 

+ tio (*X,"2) - padre (*z,"y), hermano ('y,*z). 
((tio x1 x3) (padre x1 x2) (hermano x2 x3). 
tio (x,z): padre (x,y); hermano (y,z). 


En el siguiente capítulo veremos algu- 
nos ejemplos de aplicación de reglas. 


O PROLOG-3 


Además de las operaciones lógicas, 
PROLOG también posee operaciones nu- 
méricas. Para realizar operaciones entre 
números enteros pueden usarse las típi- 
cas operaciones (*,+,-,/) y además MOD 
para el resto de la división entera. La no- 
tación para este tipo de operaciones es 
más libre que en otro tipo de funciones, 
pudiéndose usarse cualquiera de las si- 
guientes: 

— Notación infija: El operador se escri- 
be entre los operadores, es la notación 
usada normalmente: 

Xx + (y" 2) 

— Notación prefija: También conoci- 
da como notación polaca, por ser de- 
sarrollada por el lógico polaco Jan Luka- 
siewicz, pero lo complejo de su nombre 
evitó ser conocido por 1. Esta notación es 
la utilizada por el LISP. En ella el operador 
precede a los operandos sobre los que 
actúa. 

+ (%, “(Y,2)) 

Para realizar comparaciones entre nu- 
meros existen las siguientes funciones: 


ay Xx igual a y 

xA=Yy  x distinto de y 
x<yYy  Xmenor que y 
Xx> Y  Xmayor que y 


x=< y Xx menor o igual que y 

Xx >=Y xXmayor o igual que y 

En los operadores que están formados 
por dos caracteres no puede cambiarse 
el orden, como en otros lenguajes, por 
eso los detallamos todos. 


Por estar basado en el LISP también in- 
corpora el manejo de listas, con la ma- 
yoría de las funciones de éste. Las listas 
se representan de una forma un poco dis- 
tinta, por ejemplo, la lista con un único 
elemento se representaría como: 


Donde el operador punto «.» es el que 
sirve para unir los elementos de las listas. 
Existen las mismas funciones que se vie- 
ron en LISP para el manejo de listas. 

En el siguiente ejemplo vemos un uso 
de éstas en un programa que calcula la 
derivada simbólica de una expresión: 


a(x,x,1) :- ! 

d(c,x,0) :- atomic(c). 

d(u+v,x,a+b) :- d(u,x,a), d(v,x,b). 

d(u-v,x,U-v) :- d(u,x,a), d(v,x,b). 

d(c'u,x,c'a) :- atomic (c), c 1= x, d(u,x,a), !. 
a(u”v,x,v'w"u” (v=1) :- atomic (v), c 1+ x,d(u,X,v). 
d(log(u),x,a"u*(-1)) :- d(u,x,a). 


En el ejemplo final vemos, con una no- 
tación diferente, pero la más usada por 
los intérpretes de PROLOG un ejemplo de 
utilización de reglas para construir una 
compleja base de datos. 


((Hembra Isabel-de-York)) 
((Hembra Catalina)) 
((Hembra Maria)) 
((Hembra Ana)) 
((Hembra Juana)) 
((Hembra Isabel)) 
((Varón Enrique7)) 
((Varón Enrique8)) 
((Varón Eduardo)) 
((madre Isabel-de-York Enrique8)) 
((madre Catalina María)) 
((madre Ana Isabel)) 
((madre Juana Eduardo)) 
((padre Enrique? Enrique8)) 
((padre Enrique8 Maria)) 
((padre Enrique8 Isabel)) 
((padre Enrique8 Eduardo)) 
((hijo X Y) 

(varón X) 

(padre Y X)) 

((hijo X Y) 

(varón X) 

(madre Y X)) 
((hija X Y) 

(mujer X) 

(padre Y X)) 
((hija X Y) 

(mujer X) 

(madre Y X)) 


((nieto X Y) 
(varón X) 
(abuelo Y X)) 
((nieto X Y) 
(varón X) 
(Abuela Y X)) 
((nieta X Y) 
(mujer X) 
(abuelo Y X)) 
((nieta X Y) 
(mujer X) 
(abuela Y X)) 
((abuelo X Y) 
(padre X Z) 
(padre Z Y)) 
((abuelo X Y) 
(padre X Z) 
(madre Z Y)) 
((abuela X Y) 
(madre X Z) 
(padre Z Y)) 
((abuela X Y) 
(madre X Z) 
(madre Z Y)) 
((igual-padres X Y) 
(igual-padre X Y) 
(igual-madre X Y)) 
((igual-.madre X Y) 
(madre Z X) 
(madre Z Y)) 
((igual-.-padre X Y) 
(padre ZX) 
(padre Z Y)) 
((hermano X Y) 
(varón X) 
(igual-padres X Y) 
(NOT ? ((EQ X Y)))) 
((igual X X)) 
((hermana X Y) 
(mujer X) 
(igual-padres X Y) 
(NOT ? ((EQ X Y)))) 
((antepasado X Y) 
(padre X Y)) 
((antepasado X Y) 
(madre X Y)) 
((antepasado X Y) 
(padre X Z) 
(antepasado X Y)) 
((antepasado X Y) 
(madre X Z) 
(antepasado Z Y)) 
((descendiente X Y) 
(antepasado Y X)) 
((primo X Y) 


(hijo X 2) 
(hermano Z W) 
(padre W Y)) 
((primo X Y) 
(hijo X Z) 
(hermano Z W) 
(madre W Y)) 
((primo X Y) 
(hijo X Z) 
(hermana Z W) 
(padre W Y)) 
((primo X Y) 
(hijo X Z) 
(hermana Z W) 
(madre W Y)) 
((prima X Y) 
(hija X Z) 
(hermano Z W) 
(padre W Y)) 
((prima X Y) 
(hija X Z) 
(hermano Z W) 
(madre W Y)) 
((prima X Y) 
(hija X Z) 
(hermana Z W) 
(padre W Y)) 
((prima X Y) 
(hija X Z) 
(hermana Z W) 
(madre W Y)) 
((Hio X Y) 
(hermano X Z) 
(padre Z Y)) 
((tio X Y) 
(hermano X Z) 
(madre Z Y)) 
((tia X Y) 
(hermana X Z) 
(padre Z Y)) 
((Hia X Y) 
(hermana X Z) 
(madre Z Y)) 
((sobrino X Y) 
(varón X) 
(tío Y X)) 
((sobrino X Y) 
(varón X) 
(tía Y X)) 
((sobrina X Y) 
(mujer X) 
(tío Y X)) 
((sobrina X Y) 
(mujer X) 
(tía Y X)) 


